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PRESENTACION 


La colección de programas que te ofrecemos tiene un fin didáctico: que 
aprendas a programar ordenadores. Cada enunciado debe ser un desafío. Estás 
obligado a escribir un programa que funcione y a compararlo con el que te 
ofrecemos; y si no coincide con la solución propuesta, ¡tanto mejor!; y si, 
además, es más corto, más claro, más elegante y más eficaz que el nuestro, 
entonces alégrate y siente la íntima satisfacción del artista. 


Porque, efectivamente, la programación de ordenadores, amén de ser una 
disciplina mental que desarrolla los hábitos de razonamiento lógico y la capa- 
cidad de análisis de los problemas, es, también un arte; y, como tal, su plas- 
mación en un ordenador refleja la manera de pensar, de razonar y, sobre todo, 
de imaginar del programador. 


Frente a la visión terrorífica del ordenador-que-nos-controla y frente a esa 
imagen publicitaria del ordenador-que-todo-lo-hace, nosotros queremos insistir 
en el ordenador como instrumento de expresión científica, artística y lúdica. Y 
puesto que el ordenador va a entrar en las escuelas y en los hogares, queremos 
que nuestros niños y jóvenes dominen al ordenador, no que sean dominados 
por él. Pensando en ellos hemos escrito este libro, Si tú, amigo lector, ya no 
eres un chaval, haz como si lo fueras, de lo contrario no entrarás en el reino 
de la programación. 


Con estos deseos hemos decidido recoger y editar la presente colección de 
Programas comentados de BASIC BASICO. Y. también, con la esperanza de que 
sea acogido por el público con la misma simpatía y benevolencia que nuestro 
anterior BASIC BASICO Curso de programación, al cual responden muchos 
de los programas aqui comentados. 


LOS AUTORES 


ADVERTENCIAS 


PROGRAMAS “TODO TERRENO” 


Hemos pretendido que los programas “funcionen” en cualquiera de los 
ordenadores existentes en el mercado. Esta pretensión de universalidad hace 
que algunos de ellos no sean los ideales para un aparato concreto, Apelamos 
a tu inteligencia y buena voluntad para que, utilizando las ventajas de tu orde- 
nador, des soluciones más simples y elegantes a los problemas aquí propuestos. 


REFERENCIAS AL LIBRO “BASIC BASICO” 


Cada programa de este libro tiene un nombre. Muchos de ellos van seguidos 
de dos números entre paréntesis. Por ejemplo: TAQUILLA AUTOMATICA 
(4.24). Esto indica que el programa responde al ejercicio 4.24 del libro BASIC 
BASICO. CURSO DE PROGRAMACION. 


MEJORA DE LOS PROGRAMAS 


Hemos procurado presentar programas cortos y no repetir en exceso ciertas 
rutinas. Por esta razón, quizá haya programas que puedan ser mejorados por 
el lector con la simple adición de algunas líneas, que encontrará en otros pro- 
gramas o en el apartado de RUTINAS DE USO FRECUENTE. 


CUADRO DE INSTRUCCIONES EMPLEADAS 


Al final del libro presentamos una tabla, indicando qué instrucciones fun- 
damentales se manejan en cada programa. Hemos omitido aquellas que, como 
PRINT e INPUT, son utilizadas en casi todos los programas. 


RUTINAS 


En las páginas 23, 24, 25 y 26, recogemos las RUTINAS DE USO FRE- 
CUENTE, que unas veces hemos utilizado y Otras no, por no recargar los pro» 


grames, 
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LONGITUD DE LOS PROGRAMAS 


Por motivos didácticos obvios, hemos preferido programas cortos, en los 
que resalte más claramente la instrucción o construcción lógica que se pretende 
ilustrar. De todas maneras, también presentamos algunos programas largos, ya 
que al crecer la longitud, la complejidad crece más de lo que cabría esperar. 
Este tipo de programas presenta dificultades de estructuración que no se pueden 
observar en programas cortos. 


ORDEN DE DIFICULTAD 


Dentro de cada capítulo se ha procurado que los programas se presenten 
en un orden de dificultad creciente, 


EXPLICACIONES 


En todos los programas ofrecemos explicaciones suficientes para poder di- 
señarlos. Estas explicaciones van, unas veces, en lenguaje coloquial; otras, en 
forma de algoritmo; y otras, en un diagrama de flujo. 


SIMBOLOS EN LOS DIAGRAMAS DE FLUJO 


Los símbolos que hemos empleado en los diagramas de flujo son los si- 
guientes: 


Principio y fin de algoritmo. 


Operación o asignación de valor a una variable. 


Comparación. 


Entrada de valores. 


Salida de valores (en Informática se suele 
emplear sólo para salida de valores a través 
de la impresora). 


Bucle. La secuencia de instrucciones entre 
estos dos trapecios se repite un cierto nú- 
mero de veces. 


Subrutinas o conexión entre segmentos de 
programa, 


(BORRAR LA PANTALLA) 


Así indicamos en los programas la instrucción que borra la pantalla y 
lleva el cursor a la primera posición de la primera línea. El lector tiene que 
sustituirla por alguna de estas líneas: 


20 CLR 
20 CLS 
20 CLEAR 


0 por otra parecida, según el ordenador. 


(CURSOR AL ORIGEN) 


Así indicamos en algún programa le instrucción que lleva el cursor a lá 
primera posición de la primera línea. Es innecesaria en aquellos ordenadores 


Lo 


que, mediante PRINT AT A,B o TAB(A,B), pueden escribir en cualquier lugar 
de la pantalla. 


DIMENSIONES DE LA PANTALLA 


El número de líneas de la pantalla y el de caracteres por línea varían de 
unos ordenadores a otros. También es variable el número de zonas verticales 
(dos, tres O cuatro) en que queda dividida la pantalla a efectos de impresión 
con comas. Casi todos los programas de este libro están pensados para una 
pantalla de 25 lineas y 40 caracteres, que se divide en cuatro zonas verticales. 
El lector deberá tener esto en cuenta para adaptar los programas a su ordenador, 
caso de ser necesario. 


Los programas de gráficos en baja resolución están desarrollados pensando 
en 22 líneas de 32 lugares cada una, y ocho colores. En alta resolución se han 
considerado 256 puntos en horizontal y 176 en vertical. 


TAB 

Si el argumento de TAB es un número decimal, generalmente se trunca: 
TAB(16.8) da igual imagen que TAR(16). 
PRINT AT X.Y, TAB) 


Cualquiera de estas dos instrucciones permite escribir en la columna Y de 
la fila X. Si tu ordenador no posee ninguna de ellas, habrás de emplear la 
Subrutína de Uso Frecuente para bajar a la fila X, y luego TAB(Y) 


GO TO, GO SUB 
Estas instrucciones se pueden escribir como una sola palabra (GOTO, 
GOSUB) o como dos, según ordenadores. 


1F-THEN-ELSE 


Esta es una instrucción que aparece cada vez más en los BASIC ampliados. 
pero que no hemos empleado por no ser standard. Su uso puede:simplificar 
bastantes de los programas propuestos; hazlo si tu ordenador la posee. 
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GET, INKEY$ 


En unos ordenadoresla instrucción GET A$ toma un carácter único pulsado 
desde el teclado y lo guarda en la variable A$, pero no espera a que pulsemos 
dicho carácter. Por esta causa, en estos ordenadores, hemos de optar por una 
de estas dos formas de emplear la instrucción: 


30 GET Af 
40 1F A$="" THEN 30 
o bien: 
30 GET A$ : IFA$="" THEN 30 
Otros ordenadores aceptan líneas como ésta: 
30 Af=GET$ 
que espera hasta que pulsamos una tecla y guarda el carácter en Ab. 
Otros aún admiten la línea: 
30 A$ = INKEY$(200) 


que espera un máximo de 200 unidades de tiempo para guardar en Ag el 
carácter pulsado desde el teclado; pasado este tiempo o pulsada una tecla, la 
ejecución continúa. 


La línea 
30 A$=INKEYI 
no espera; equivale al GET A$ inicial. 


Es de vital importancia que el lector conozca cómo funcionan estas instruc- 
ciones en su ordenador. 


INICIALIZACION DE VARIABLES 


Hemos inicializado siempre las variables, con asignaciones tales como Á=0, 
En algunos ordenadores no es necesario hacerlo, pues “suponen” que las va- 
riables a las que aún no se ha asignado valor valen cero, 


RUN 


En algún ordenador no funcionará RUN 300, siendo 300 un número de 
línea, y ha de ser sustituido por GOTO 300 empleado como comando (orden 
directa al ordenador, que no va precedida por número de línea). 


En general RUN 300 anula los valores de las variables existentes en ese 
momento en el ordenador. En cambio GOTO 300 conserva los valores de 
esas variables. 


INPUT “CON ETIQUETA” 
Hay ordenadores que no admiten líneas como ésta: 
20 INPUT “NOMBRE”;A$ 
En todo caso, se puede sustituir esta línea por estas dos: 


15 PRINT “NOMBRE”; 
20 INPUT Aj 


que funcionan en cualquier ordenador; o, incluso, por: 
15 PRINT “NOMBRE”, 
20 INPUT A$ 
25 PRINT Af 


que hace aparecer en pantalla el valor de Af), si hubiese desaparecido tras el 
INPUT. 


LINEAS CON MAS DE UNA INSTRUCCION 


En ocasiones hemos puesto más de una instrucción en una misma línea, 
separadas por dos puntos: 


30 A=0:B=0:PRINT D 


No todos los ordenadores lo admiten. 
Mucho cuidado con las líneas del tipo: 


40 IF A=B THEN PRINT B:B=1 

porque la instrucción B=] sólo se llevará a efecto cuando A=B; y en: 
40.1E.B=A- THEN 300 : B=1 

la segunda ustrucción no se llevará a-efecto nunca. 
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RND, RANDOMIZE 


Son muchos los programas de este libro que utilizan la función RND para 
producir números aleatorios. Las variantes más frecuentes, según los tipos de 
ordenador, son: 


a) 30 RANDOMIZE 
40 X=RND 


En X se obtiene un número aleatorio entre 0 y 1,0<X<L 
b) 30 X=RND(K) siendo K un número positivo, 

En X se obtiene un número aleatorio entre 0 y 1,0<X<L 
() 30 X=RND(K) siendo K un entero positivo distinto de 1. 


En X se obtienen aleatoriamente cualquiera de los enteros 1,2,+-,K. Así, 
por ejemplo, D=RND(6) simula el lanzamiento de un dado. En este tipo de 
ordenadores, X= RND(1) produce un número aleatorio, X, entre 0 y 1. 


El lector deberá adaptar todos los programas que lleven RND, bien inclu- 
yendo una línea RANDOMIZE, si su ordenador es del tipo a, bien incluyendo 
como argumento de la función RND el número 1: RND(1), que es válido para 
tos del tipo b y e. 


SIN, COS, TAN 


Las funciones trigonométricas tienen su argumento en radianes (un ra- 
dián==58 ). Para pasar un ángulo de grados a radianes se multiplica el valor 
por x y se divide por 180. 


TI, TIME 


Los microordenadores tienen un reloj que mide el tiempo en 1/50 ó 1/100 
de segundo. El tiempo transcurrido desde que se conectó el ordenador 'se en- 
Cuentra en la variable Tl (o en TIME), cuyo nombre es una palabra reservada, 
no puede ser empleada por el usuario. 


En este libro hemos utilizado TI y suponeraos que la unidad de tiempo es 
1/50 de segundo. : 
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ASC, CODE 


La función ASC (en algunos ordenadores CODE) permite pasar de un ca- 
rácter cualquiera, letra, número, separador o simboio de operación, al corres- 
pondiente en el código ASCII. 


CADENAS 


Para la prolongación de cadenas por concatenación generalmente se utiliza 
el simbolo +, pero en algunos casos ha de ponerse de. 


Para segmentarlas lo normal es emplear las funciones LEFT$, RIGHT$ 
y MIDf, que funcionan así: si A$=“CAROTA”, entonces: 


LEFT$(A$,4)=“CARO” (toma los 4 caracteres de la izquierda). 
RIGHT$(A$,4) =“ROTA” (toma los 4 caracteres de la derecha). 
MID$(4$,3.2) =“RO” (toma 2 caracteres a partir de la posición 3). 


Sin embargo, algunos ordenadores lograrían estos mismos resultados me- 
diante las expresiones respectivas: 


A TO 4)="CARO”=AS( TO 4) 
ASÓ TO 6)="ROTA”=A$(3 TO ) 
A$G TO 4)=“RO” 


que, aún no siendo las usuales, son posiblemente más cómodas. 


DIMENSIONADO 


Hemos mantenido la denominación de listas y tablas, que ya empleamos 
en BASIC BASICO, para referirnos a las variables subindicadas. Se han di- 
mensionado siempre con instrucciones como DIM L(4), DIM T(5,7), aunque 
en algunos ordenadores no es necesario hacerlo para dimensiones menores O 
iguales que 10. 


Asimismo hemos supuesto que existe el índice cero para listas y tablas. Por 
eso hemos empleado en ocasiones variables tales como A(0), B(0,3) y C(0,0), 
aunque en general es una práctica de programación poco recomendable. 


En algunos ordenadores el número total de elementos de una tabla no 
puede ser mayor de 256; comprueba si tu aparato es de ésos. 


8 


LISTAS Y TABLAS ALFANUMERICAS 


En alguno de los ordenadores más baratos, las listas y tablas alfanuméricas 
no admiten más que un carácter en cada lugar. Así, aunque muchos ordena- 
dores pueden admitir una lista, L$, de longitud cuatro, como por ejemplo: 


CASA - L$(D)="CASA” 
14 | PEDRO L$()=“PEDRO” 
= muy 16 


ROCIERO L$(4) =“ROCIERO” 


hay algunos que sólo podrían aceptar: 


Lg) =“C" 
L$0)=“P> 
L$(3)="T" 
L$(9="R” 


La forma más obvia de salvar esta situación consiste en dimensionar una 
tabla de igual longitud que la lista, y de anchura igual a la longitud de la 
palabra más larga, DIM L$(4,7); entonces: 


cjalsja] 
PE DIRÍO 

18= [mu 
kToicTilelirio 


Ahora L$Q,5)="0”, y L$306)="”. 
Sin embargo, una vez que la tabla ha sido definida como tal, puedes mane- 
jarla como una lista, de forma que LH(1)=“CASA — ”. El mayor problema 


que presenta este tratamiento es que “CASA”<> L$(1), ya que le faltan los 
tres espacios que tiene esta última. 


ON GOTO, ON GOSUB 
La línea 100: 


100 ON A GOTO 1000, 2000, 3000 
10... 


ansfiere lá ejecución a las líneas 1000, 2000 ó 3000, según que el valor de 
la parte entera de la variable A sea 1,2 6 3. Si le parte entera de A es menor 

que uno-o" mayor que tres, entonces la ejecución pasaría a la línea 110. La 
instrucción" ON-GOSUB es análoga. 


“En algunos ordenadores no existen estas instrucciones, pero es posible trans- 
ferir la ejecución en la forma GOTO D, siendo D una variable. En este caso 
podemos simular la línea 100 de esta manera: 


100 IF A>=1l AND A<=3 THEN GOTO INT(A)* 1000 


Si las líneas a las cuales se ha de transferir el control no pueden estar re- 
gularmente separadas, por ejemplo: 150, 1810, 3416, se pueden guardar orde- 
nadamente estos valores en una lista: 

L(1)=150  L(2)=1810  L(3)=3416 


y sustituir la última versión de la línea 100 por: 


100 IF A>=1 AND A<=3 THEN GOTO L(A) 


PAUSE, WAIT 


Si deseamos que la pausa que realiza el ordenador tenga duración fija, 
podemos poner: 


PAUSE n 


siendo n el número de fracciones de segundo (generalmente iguales a 1/50) que 
deseamos se detenga el funcionamiento. En otros ordenadores la instrucción 
análoga será: 


WAIT n 


Si el ordenador carece de estas instrucciones, pero está dotado de la va- 
riable Tl, entonces podemos emplear la correspondiente Subrutina de Uso Fre- 
cuente, : 
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PEEK, POKE 


Estas instrucciones permiten conocer el contenido de la celda de memoria k: 
PEEK(k), o introducir un valor n en el lugar k de la memoria: POKE kn. 
Emplear estas instrucciones, que no pertenecen al BASIC (lenguaje abstracto) 
sino a los BASICs (concreciones de ese lenguaje abstracto a máquinas deter- 
minadas), supone: a) conocer el lenguaje máquina del microprocesador en que 
está basado tu microordenador; b) conocer el mapa de memoria del microor- 
denador. Cualquiera de estas razones evidencia la imposibilidad de tratar con 
generalidad estas instrucciones. 


En algunos micros es necesario emplear POKE para simular la instrucción 
PRINT AT, cambiar los colores o generar sonidos. 
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RUTINAS DE USO FRECUENTE 


Algunas de las rutinas que a continuación se exponen las hemos usado con 
frecuencia y otras en contadas ocasiones. También ponemos rutinas que noso- 
tros no empleamos, pero de las que el lector puede servirse si lo considera 
oportuno. 


PARADA DE TIEMPO FIJO (K unidades de tiempo) 


1010 T=T1 
1020 1F TI-T<K THEN 1020 


Esta rutina se puede emplear si el ordenador dispone de ur reloj interno 
que se pone a cero cuando el “micro” se conecta a la red. 


La variable Ti nos da, en cada instante, el tiempo transcurrido desde que se 
conectó el ordenador. 


Si nos interesa que se detenga la ejecución K unidades de tiempo (cada uni- 
dad de tiempo suele ser 1/50 de segundo), entre las lineas 1000 y 1030 se 
intercalan las instrucciones 1010 y 1020. 


PARADA DE TIEMPO FIJO (sin variable Fi, K cielos) 


1000 FOR l=1 TO K 
1010 NEXT 1 


Al ejecutar este ciclo, el ordenador “no hace nada” K veces, lo cual supone 
una espera. 


PARADA DE CONTACTO 


1000 GET Af 
1010 1F A$="" THEN 1000 


2 


Est utilizada y explicada en el problema 1”. 


Esta rutina es similar a: 


1000 1F INKEY$="" THEN 1000 


: PARADA DE CONTACTO CON TIEMPO ACOTADO 


1000 T= TI 
1010 GET Af 
1020 1F A$="" AND TI=T<K THEN 1010 


PAUSA 


1000 PAUSE K 


El ordenador detiene la ejecución durante K- 1/50 segundos. 


SIO NO 


1000 PRINT “QUIERES VOLVER A EMPEZAR (S/N)?" 
1010 GET R$ ¿IF R$="" THEN 1010 

1020 1F R$<>"“S” AND R$<>“N” THEN 1010 

1030 IF R$="S" THEN (a la linea correspondiente) 

1040 (BORRAR LA PANTALLA) 

1050 PRINT “ADIOS” 

1060 END 


Si queremos poner las variables a cero pondremos: 
1030 1F R$="S” THEN RUN (número de la línea correspondiente) 


En realidad la segunda instrucción de la línea 1010 es redundante con la 
linea 1020. 


CICLO SIN FIN 


1000 GOTO 1000 


Esta instrucción tiene por objeto que la ejecución nunca se detenga. Se suele 
poner al final del programa para evitar los mensajes del tipo READY u OK, 
que pueden deteriorar la presentación en pantalla. 
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TRUNCAR A N CIFRAS DECIMALES 


1000 B=INT(A+ 1 EN)/1EN 
Ver BASIC BASICO Curso de Programación, pág. 122. 


REDONDEAR UN NUMERO A N DECIMALES 


1000 B=INT(A+1EN +.5/1EN 
Ver BASIC BASICO Curso de Programación, pág. 137. 


OBTENCIÓN DE NUMEROS ALEATORIOS 


1000 A=RND Resultando 0O<A<! 
10009 A =INT(N*RND)+1 Resultando ISASN A entero 
1000 N=A+(B-AJFRND Resultando A<N<B 


Este punto ha sido tratado para diversos ordenadores en las Advertencias 
Previas. Aquí exponemos la utilización concreta que se ha empleado en este 
libro. 


BAJADA A LA LINÉA X 


1000 (CURSOR AL ORIGEN) 
1010 FOR [=1 TO X 

1020 PRINT 

1030 NEXT 1 


CURSOR EN FILA X, COLUMNA Y 


1000 (CURSOR AL ORIGEN) 
1010 FOR I=1 TO X :PRINT :NEXT 1 
1020 PRINT TAB(Y):“los caracteres correspondientes” 


e BORRADO DE UN TROZO DE LINEA IMPRIMIENDO 
“¿A CONTINUACION 


Puesto el cursor en la posición deseada, se imprime encima de la parte de 
línea que queremos borrar, una cadena de tantos espacios en blanco como sea 
la longitud de dicho fragmento. 


1000 PRINT TAB(Y):". 
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1. JUEGOS 


1. ADIVINA UN NUMERO 


Se trata de programar un inocente juego: El ordenador piensa un número 
del 1 al 100 y nosotros lo tenenos que adivinar. 


Después de proponer nuestro número, el ordenador nos contestará con 
frases tales como “más alto”, “más bajo”, “has acertado después de 7 imien- 
tos”, según que muestro número sea menor, mayor o igual que el número 


secreto. 


Unas instrucciones previas, impresas en la pantalla, vendrán bien para ex- 
plicar el juego al que no lo conozca. Estas instrucciones permanecerán hasta 
que el jugador las haya leído; momento en el que, al pulsar una tecla cual- 
quiera, se borrarán. Esto se consigue mediante la instrucción: 


GET Af 


que guarda en la variable de cadena A$ el carácter que en ese momento haya 
sido pulsado en el teclado. 


Una secuencia típica de utilización del GET es la siguiente: 


100 GET A$ 
110 1F A$="" THEN 100 
120 ++ (sigue la ejecución) 


Mientras no se pulse una tecla, la variable A$ estará vacía, es decir, la 

condición Af ="” será cierta, y el programa volverá a la línea 100. Cuando 

”. se pulse una tecla cualquiera, la variable A$ se llenará, la condición AS a 
no se cumplirá, y la ejecución del programa continuará en el paso 120. 


Es claro que el ordenador debe elegir un número al azar del 1 al 100. 
sto lo hace en la linea: 


+ 130 X=INT(U00*RND+1) 
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100 


120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
230 
290 
300 


30 


REM ADIVINA UN NUMERO 


) (BORRAR LA PANTALLA ) 


PRINT "TIENES QUE ADIVINAR UN NUMERO" 
PRINT "COMPRENDIDO ENTRE 1 Y 100." 
PRINT 
PRINT "DESPUES DE ESCRIBIR TU NUMERO" 
PRINT "PULSA LA TECLA RETURN." 
PRINT 
PRINT "PARA CONTINUAR PULSA UNA TECLA." 
GET A$ 
IF A$="" THEN 100 
( BORRAR LA PANTALLA ) 


X=INT(100*RND+1) 

1=0 

PRINT 

INPUT "ESCRIBE TU NUMERO";N 

I-=1+1 

IF N<X THEN PRINT "MAS ALTO" : COTO 150 
IF N>X THEN PRINT "MAS BAJO" ; GOTO 150 
PRINT 


PRINT "ENHORABUENA. ACERTASTE" 

PRINT "DESPUES DE";1;"INTENTOS” 

PRINT 

PRINT "QUIERES VOLVER A JUGAR (S/N)?” 
GET R$ : 1F R$="" THEN 250 

IF R$<>"S" AND RS<X>"N" THEN 250 

IF R$="S" THEN 120 

( BORRAR LA PANTALLA ) 

PRINT "ADIOS" 

END 


2. CARRETERA 


La figura inferior muestra la simulación de una carretera con curvas: el coche 
es la «V» que, pulsando la tecla Q se desplaza un lugar hacia la izquierda, y 
pulsando la P un lugar hacia la derecha. Cuando el coche se sale de la carretera 
se termina la partida. 


GRADO DE DIFICULTAD 1-37 3 
1= 
12 


1 


IV====1 


HAS RECORRIDO 1.3 KM SIN ACCIDENTES 
La variable X indica la posición del comienzo de la cadena que es la ca- 
rretera, y la variable Y, la posición del coche. La X se mueve a uno u otro 
lado aleatoriamente, según lo ordene la linea 150. Si se va a llegar a uno de 
los bordes laterales de la pantalla, se hace que la carretera «rebote» (lineas 160 
y 170) 


En la línea 120 se utilizan las funciones LEFT$ y RIGHT$ para imprimir 
cada vez la carretera y en ella el coche. Es la línea 130 le que contiene la 
condición de que si el coche se sale de la carretera, se termina el juego. 


Fijate en la variable A$ en la línea 50: necesita un espacio en blanco a 
cada lado. Observa también la línea 130. ¿Por qué utiliza el signo < =, y 
no pone simplemente =? Puedes probar a modificarlo y verás los errores en 
que se incurre. 


e 


O REM. CARRETERA 
(BORRAR LA PANTALLA ) 


PRINT : PRINT : PRINT 

INPUT "GRADO DE DIFICULTAD 1-3";G 
A$=" 1 
x=16 
K=0 
FOR 1=1 TO 30%G : NEXT 1 
GET 3$ 


100 1F 3$="Q" THEN Y=Y-1 
110 IF BS="P" THEN Y=Y+1 

120 PRINT TAB(X);LEPTS(AS,Y-X)¿"V"¡RIGHTS(AS,X+8-Y) 
130 IF Y-X<=1 OR Y-X>=7 THEN 190 

140 K=K+1 

150 X=X+INT(3*RND)-1 

160 IF X=0 THEN X=2 

170 IF X=32 THEN X=30 

180 GOTO 80 

190 PRINT : PRINT : PRINT 

200 PRINT "HAS RECORRIDO ";¿K/10;" KM SIN ACCIDENTES" 
210 END 


Para utilizar este programa en tu microordenador probablemente tendrás 


que hacer algunas variaciones. 


KYA 


— Líneas 50 y 120: elegir para la carretera y el coche los simbolos más 
apropiados de entre los que disponga tu microordenador. 


—- Línea 60: centrar la carretera en tu pantalla. Para ello el valor imicial de 
la X es: 


n.* de espacios 


X= 
2 


Centrar el coche en la carretera: Y =X +4. 


Ajustar el efecto de rebote por la derecha en la linea 170, Si A es el 
número de columnas de tu pantalla pondrás: IF X=A-—8 THEN 
X=A-10. 


— Línea 80: ajustar la expresión de la dificultad a + velocidad de eje- 
cución de tu microordenador,” 


¡BUENA SUERTE!! 


3, CARRERAS DE CABALLOS (7.12) 


Simular una carrera de once caballos numerados del 2 al 12. El avance 
de cada caballo se decide lanzando dos dados: la suma obtenida es el número 
del caballo que avanza un espacio. Se acaba la carrera cuando el primero llega 
a la meta. (Conviene representar el avance de los caballos por una especie 
de diagrama de barras.) 


DON ap 


. 
ES 


_ 


2 


EL CABALLO GANADOR ES EL 7 
QUIERES PRESENCIAR OTRA CARRERA? (S/N) 


En primer lugar representaremos los caballos en la línea de salida dejando 
un espacio entre ellos. Comenzamos la carrera lanzando los dos dados: 


X=INT(6RND+1) Y =INT(6*RND+ 1) 
La suma de los puntos se recoge en la variable S: 
S=X+Y 
A continuación se suma una unidad al contador de espacios del caballo $: 


C(S) = C(S)+1 


Ahora tenemos que reflejar el avance del caballo S en la pantalla. Para 
ello situamos el cursor en el origen de la pantalla (rincón superior izquierdo) 
y descendemos hasta la línea de S, donde imprimimos, mediante la función 
TAB, ux cuadradito E (o bien, el signo +) en la posición correspondiente 
a US). 


La carrera se acaba en el instante en que uno de los caballos haya 
avanzado 36 espacios. Por:tanto, si C(S) es menor que 36, hay que volver a echar 
los dados; en caso contrario se termina la carrera imprimiendo: EL CABALLO 
GANADOR ES EL $. Al final se pregunta si se quiere presenciar Otra ca- 
rrera. En caso afirmativo, la instrucción RUN 20 de la línea 230 pone todas 
las variables a cero y el programa recomienza a partir de la línea 20. Si 
la respuesta es negativa, el programa termina. É 


La impresión final del programa que ofrecemos ocupa 23 líneas de 40 ca- 
racteres. Tienes que tener en cuenta las dimensiones de la pantalla de tu 
ordenador y modificar el programa según aquéllas. 


La técnica utilizada para representar el avance de los caballos puedes 
emplearla para construir diagramas de barras. Una variante de esta técnica 
de representación consiste en establecer las variables de cadena C$(S), donde 
puedes ir acumulando los cuadraditos MW para construir las barras: 


C$S) =CR(S) + “mL 


Al final imprimes las barras C$(S), para los distintos valores de $. 


10 REM CARRERA DE CABALLOS 
:20 DIM C(12) 

30 ( BORRAR LA PANTALLA ) 
40 FOR 1=2 TO 12 

SO PRINT : PRINT 1 

60 NEXT 1 

70 X=INT(S*RND+1) 

80 Y=INT(6*RND+1) 

90 S=X+Y 

100 c(s)=c(5)+1 

110 ( CURSOR AL ORIGEN ) 
120 FOR K=1 TO 2%8-3 

130, PRINT 

140 NEXT K 

150 PRINT TAB(C(S)+3);"H” 
160 17 C(S)<36 THEN 70 
170 ( CURSOR AL ORIGEN ) 
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180 
190 
200 
210 
220 
230 
240 
250 
260 


FOR 1-1 70 21 ; PRINT : NEXT 1 
PRINT "EL CABALLO GANADOR ES EL";S 
PRINT "QUIERES PRESENCIAR OTRA CARRERA? 
CET R$ 

IF RÍCX>"S" AND RÍ<>"N" THEN 210 

IF R$="5" THEN RUN 20 

( BORRAR LA PANTALLA ) 

PRINT "ADIOS" 

END 


(s/0" 
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4. RULETA RUSA (INOFENSIVA) 


Se toma un revólver, y iras colocar una bala en el tambor, se le da vueltas. 
Cada jugador realiza esa operación y simula disparar el revólver. Si “sale” la 
bala, “muere” y el juego acaba. En caso contrario, “vive” y toca el turno al 
siguiente jugador, 


El número máximo de jugadores se ha fijado en 10, pero es posible jugar 
menos, ya que el número de jugadores se introduce mediante la variable N. 


Numeramos los agujeros del tambor del 1 al 6 y en el 1 colocamos la 
bala. Por medio de un bucle hacemos disparar a todos los jugadores y dar 
vueltas al tambor. Si coincide el número tomado al azar con el 1, es que la 


bala hizo impacto y en otro caso, es que no lo hizo. 


Presentación en pantalla: 


CUANTAS PERSONAS? 3 

NOMBRES DE LAS PERSONAS 

7? ENRIQUE 

2 AGUSTIN 

% RICARDO 

EMRIQUE 1ICLIK1! HUBO SUERTE, ESTAS VIVO 
AGUSTIN 1 )PUMI! NO HUBO SUERTE, ESTAS MUERTO 
RICARDO !ICLIK?I HUBO SUERTE, ESTAS YIVO 


10 REM RULETA RUSA (INOFENSIVA) 
20 DIM A$(10) 

30 PRINT "CUANTAS PERSONAS"; 

40 INPUT N 

50 PRINT "NOMBRES DE LAS PERSONAS" 
60 FOR I=1 TO N 

70 INPUT AS(1) 

.80 NEXT 1 

90 B=1 

100 REM VUELTAS AL TAMBOR 

110 FOR I=1 TO N 

120 P=INT(G*RND)+1 

130 REM DISPAROS 
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140 
150 
160 
170 
180 
190 
200 


PRINT A$(1I); 

IF B=P THEN 180 

PRINT " 1!CLIK!! HUBO SUERTE, ESTAS VIVO" 
GOTO 190 

PRINT " !!PUM!! NO HUBO SUERTE, ESTAS MUERTO" 
NEXT 1 

END 
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5, TIRO AL PLATO 


Se trata de programar un tiro al plato muy particular: En la parte superior 
de la pantalla aparece, en posición aleatoria, una letra (el plato) elegida al 
azar. El jugador tiene un segundo y medio para pulsar (disparar) la tecla co- 
rrespondiente a la letra. Si lo hace en menos de ese tiempo, rompe el plato, 
y en la pantalla aparece un efecto de flas e inmediatamente sale el plato 
siguiente. Si no acierta, aparece otro plato. 


El juego dura 10 segundos. Al final, el ordenador indica el número de platos 
rotos. 


Vamos a hacer algunos comentarios al programa que ofrecemos: 


Los microordenadores tienen un reloj que cuenta el tiempo en fracciones 
de segundo. En el programa hemos supuesto que nuestro ordenador mide el 
tiempo en 1/50 de segundo (en otros la unidad de tiempo es la centésima de se- 
gundo). El tiempo transcurrido desde que el ordenador ha sido conectado 
se encuentra en la variable TL, cuyo nombre está reservado (otros utilizan la 
variable TIME). 


En la linea 80 se toma el tiempo inicial y se guarda en la variable TO. 
La línea 90, que se ejecuta varias veces, controla si el tiempo trascurrido es 
superior o igual a los 10 segundos, en cuyo caso termina el juego. 


La línea 170 no permite que el plato esté más de un segundo y medio 
en el aire, 


Las líneas 500-540 forman la subrutina de escritura de un carácter x3 en k 
posición D de la línea B (en aquellos ordenadores que posean la función 
PRINT AT D, 3 se puede prescindir de la subrutina). En la linea 140 se 
reclama la subrutina para situar el plato en la posición aleatoria (D, B). Tam- 
bién se utiliza la subrutina en las líneas -220 y 250 para producir el efecto 
de flas cuando se rompe un plato. 


Cada letra (plato) es elegida al azar del siguiente modo: en la linea 100 
se produce un número aleatorio N comprendido entre 65. y 90. Este número 
es el código ASCH de la letra. En la línea 110 se obtiene la letra corres- 
pondiente a N y se guarda en la variable X$. 
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10 

20 

30 

40 

50 

60 

70 

80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
500 
510 
520 
530 
540 


REM TIRO AL PLATO 
( BORRAR LA PANTALLA ) 
PRINT "CUANTOS PLATOS PUEDES ROMPER" 
PRINT 

PRINT "EN 10 SEGUNDOS 2?" 

FOR I=i TO 2000.: NEXT 1 

c=0 

TO=TI 

IF TI-10>=500 THEN 290 
N=INT(26*RND+65) 

X$=CHR$(N) 

B=INT(10*RND+1) 

D=INT(40*END) 

COSUB 500 

Ti=T1I 

GET 1$ 

IF T1I-71>=73 THEN 90 

IF LS<>X$ TEEN 160 

ec=c+1 

FOR K=1 70 3 

xgonen 

GOSU3 500 

FOR I=1 TO 20 : NEXT 1 

xgeon o” 

G0SU3 500 

FOR I=1 TO 20 : NEXT 1 

NEXT K 

GOTO 90 

PRINT "HAS ROTO ";C;¿ " PLATOS" 
END 

REM SUBRUTINA DE ESCRITURA 

( BORRAR LA PANTALLA ) 

FOR I=1 TO B : PRINT ; NEXT 1 
PRINT TAB(D);X3 

RETURN 


DECIAS 


6. SUBMARINO INMOVIL (7.22) 


En un casillero 6 x 6 el ordenador sitúa al azar un submarino, fuera del 
alcance de nuestra vista y del sónar. Vamos lanzando cargas de profundidad 
en diversas casillas. Si una carga da al submarino, el ordenador contesta 
“HUNDIDO”. Si da en una casilla contigua a la del submarine. el ordenador 
contestará “SUBMARINO CERCA”. Si la carga da en otro lugar, la contesta- 
ción es “AGUA”. 


Al hundir el submarino el ordenador ha de sacar en pantalla el número 
de cargas de profundidad utilizadas, así puede haber competición entre varios 
jugadores, ganando quien consiga el hundimiento con el menor número de ellas. 
(No es necesaria la representación grájica.) 


En las variables Bl y B2 están colocadas al azar las coordenadas del 
submarino. Para ello hacemos uso de la función RND. 


En las variables X e Y están colocadas las coordenadas del lugar en que 
creemos nosotros que está situado el submarino. introducimos en la variable U 
la distancia entre esas dos casillas. Mejor dicho, introducimos, por comodi- 
dad, la distancia al cuadrado. Si resulta ser 0, es que hemos HUNDIDO el 
submarino; si es mayor que 3, es “AGUA”. Por exclusión, si no“es ninguno 
de los dos, se imprimirá “SUBMARINO CERCA”. 


Presentación en pantalla: 


INTRODUCE LGS COORDENADAS X,Y DE LA CARGA 
> 2,2 

EN LA CASILLA X= 2 Y= 2 AGUA 

INTRODUCE LAS COORDENADAS X,Y DE LA CARGA 
72.5 

EN LA CASILLA X= 2 Y= 5 AGUA 

INTRODUCE LAS COORDENADAS X,Y DE LA CARGA 
2 8,2 

EN LA CASILLA X= 5 Y= 2 AGUA 

INTROBUCE LAS COORDENADAS X,Y DE LA CARGA 
2 5,5 

EN LA CASILLA X= 5 Y= 5 SUBMARINO CERCA 
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INTRODUCE LAS COORDENADAS X,Y DE LA CARGA 
253,9 

EN LA CASILLA »= 5 Y= 4 AGUA 

INTRODUCE LAS COORDENADAS X,Y DE LA CARGA 
23,6 

EN LA CASILLA X= 4 Y= 6 HUNDIDO 

HAS NECESITADO 6 CARGAS 


10 REM SUBMARINO INMOVIL 

20 BI=INT(G*RND)+1 

30 B2>INT(6*RND)+1 

40 1=0 

50 PRINT "INTRODUCE LAS COORDENADAS X,Y DE LA C 
ARCA" : y 

60 INPUT X,Y 

70 1Y X>6 OR Y>6 TEEN PRINT "EL CASILLERO ES 6 
POR 6" : PRINT ; GOTO 50 

80 I=1+1 

90 U=(B1-X)12+(B2-Y)72 

100 1F U=Q THZN 160 

110 IF 0>3 THEN 140 

120 PRINT "EN LA CASTILLA X="5X¿"Y="5Y;"SUBMARIN 
O CERCA” 

130 GoTo 50 

140 PRINT “EX LA CASILLA X="¿X;"Y=";Y; "AGUA" 
150 GOTO 50 

160 PRINT "EN LA CASILLA 2=",X;"Y=";Y;"HUNDIDO” 
170 PRINT "HAS NECESITADO"; T;"CARGAS" 

180 END 
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7. SUBMARINO 


En un casillero de 8 x 8 el ordenador sitúa al azar un submarino, fuera del 
alcance de nuestra vista. Vamos lanzando cargas de profundidad en diversas ca- 
sillas. Tras cada carga lanzada, el ordenador contesta con la distancia a la que 
se encuentra el submarino, medida en casillas horizontales y verticales, Si la 
distancia es cero, contesta “HUNDIDO” y muestra la posición del subma- 
rino (+). (Los buenos jugadores con tres cargas tienen suficiente para destruir 
el buque.) 


LINEA, COLUMNA? 6, 2 


En el programa que proponemos hemos establecido una subrutina (300-399) 
a para dibujar el cuadro de batalla. Para ello hemos introducido en tres va- 
ena los siguientes motivos: 


56787 . 
AN > (10 cuadraditos negros) 
BM” (8 espacios con un cuadradito negro a 
cada lado) 
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La impresión, en líneas sucesivas, de los motivos M1$, M2$, M3$ (ocho 
veces) y M2$, poniendo delante de cada M3% el número correspondiente, 
produce el recuadro de la figura. 


Con la función TAB se ajustan jos motivos y se centra el dibujo. 


En las líneas 110, 120 y 130 se cargan en la variable de índice DF(1) los 
caracteres *,1,2,3,4,5,6,7,8,9,A,B,C,D,E, que van a marcar la distancia D a la 
que se encuentra el submarino. Como para dicha marca sólo disponemos de 
un espacio, las distancias 10,11,12,13 y 14 son representadas por las le- 
tras A,B,C,D y E. 


Comienza el juego a partir de la línea 140, que remite a la subrutina 300 
de representación gráfica. y 


En la línea 150 el ordenador elige al azar las coordenadas del submarino. 


Las líneas 160, 170 y 180 sirven para situar el cursor en la zona inferior 
de la pantalla, y preguntar allí las coordenadas de la zona del disparo. 


Desde la 190 a la 220 se calcula la distancia D, y se imprime en la casilla 
correspondiente. En la 230, si la distancia no es cero, se repite el disparo, y si 
es cero, se imprime “HUNDIDO”, borrando previamente con espacios la línea 
en la que hemos estado poniendo las coordenadas. Y el juego finaliza. 


10 REM LA CAZA DEL SUBMARINO 

20 GOSUB 300 

30 PRINT : PRINT "ESTO ES LÁ CAZA DEL SUBMARINO" 
40 PRINT : PRINT "SE LANZA UNA CARGA DE PROFUNDI 
DAD" 

50 PRINT "ESCRIBIENDO EL NUMERO DE LINEA Y EL DE 
COLUMNA SEPARADOS POR COMA" 

60 PRINT : PRINT "EN LA ZONA CORRESPONDIENTE APA 
RECE" 

70 PRINT "LA DISTANCIA A LA QUE SE HALLA EL” 

80 PRINT "SUBMARINO MEDIDA EN CUADRADITOS HORIZ 
ONTALES Y VERTICALES" 

90 PRINT : PRINT "PARA EMPEZAR EL JUEGO PULSA UN 
A TECLA" 

100 GET AS : 1F A$="" THEN 100 

110 DIM D$(14) 

120 FOR 1=0 TO 14 : READ D$(I) : NEXT 1 

130 DATA *,1,2,3,4,5,6,7,8,9,A,B,C,D,E 

140 G0SU3 300 

150 X=INT(8*RND+1) : Y=INT(S*RND+1) 

160 ( CURSOR AL ORIGEN ) 


FOR 1=1 TO 20 : PRINT : NEXT 1 
INPUT "LINEA,COLUMNA”;L,C 
D=ABS(X-L)+ABS(Y-C) 

( CURSOR AL ORIGEN ) 

FOR I=1 TO L+l : PRINT : NEXT 1 
PRINT TAB(C+12);D$(D) 

IF D<>0 TEEN 160 

( CURSOR AL ORIGEN ) 

FOR I=1 TO 20 ; PRINT : NEXT 1 
PRINT * HUNDIDO" 
END 

REM SUBRUTINA DE REPRESENTACION GRAFICA 
m1$="12345678" 

M2$= ” 

u3s="M E” 

( BORRAR LA PANTALLA ) 

PRINT TAB(13):M1$ 

PRINT TAB(12);M28 

FOR 1=1 TO 8 

PRINT TAB(9);1TAB(12);M3$ 
NEXT 1 

PRINT TAB(12),M28 

RETURN 


3. JUEGO DEL SUBMARINO MOVIL (7.23) 


Variante del juego anterior en un casillero de 10 x 10. Después de cada carga 
lanzada la máquina contesta la distancia en casillas y, si la distancia es cero, 
responde “HUNDIDO EN 7 INTENTOS”, por ejemplo. Pero en esta variante 
el submarino se mueve: cada vez que lanzamos una carga se desplaza aleato- 
riamente una casilla, (Si va hacia los bordes, rebotará en ellos.) Igual que antes, 
se trata de hundir el submarino con el menor número posible de cargas. 


En las primeras líneas, hasta la 130, se representa el “campo de batalla”, 
arriba números y a la izquierda letras. Las letras de la A a la J tienen los có- 
digos 65 a 74. 


12|3/4]/5/6|7/|8]|9]10 


A Y] 
pa q 
B 
c 
D 
E 
A 
F 
— 
G 
H 
PO a 
1 
J 


DONDE DISPARAS (PRIMERO LA LETRA)? C,2 


Después se sitúa el submarino, pero no se saca en la pantalla. Entonces 
el ordenador pregunta dónde disparamos. Es necesario un bucle previo, li- 
nea 190, para que la pregunta se formule siempre abajo, sin estropear el 
dibujo. 

Supongamos que nuestra respuesta es C,2, y que el submarino está en F,6. 
En este juego se mide la suma de la distancia en horizontal y en vertical, 


aso 


en este caso 7 (linea 220). Queremos que salga en la pantalla un 7 en la 
posición C,2. Es lo que hacen las líneas 230 a 250. 

La variable K contabiliza el número de cargas lanzadas. Si la distancia D 
es cero, hemos hundido el submarino en K cargas. Si no, el submarino se 
mueve una casilla al azar, como muestra el dibujo. Puede también quedarse 
en el mismo sitio. El movimiento corre a cargo de las líneas 280 y 290, con 
las condiciones posteriores de que el submarino no se salga de la cuadrícula. 


10 REM SUBMARINO MOVIL 

20 ( BORRAR LA PANTALLA ) 

30 REM DIBUJO DE LAS COORDENADAS 

40 PRINT SPC(5); 

50 FOR 1=1 TO 10 

60 PRINT 1; 

70 NEXT 1 

80 ( CURSOR AL ORIGEN ) 

90 PRINT ; K=0 

100 FOR 1=65 TO 74 

110 PRINT 

120 PRINT SPC(4);CHR$(1) 

130 NEXT 1 

140 REM COORDENADAS DEL SUBMARINO 

150 X=INT(10*RKD)+1 

160 Y=INT(10Y*RND)+1 

170 REX CARGA DE PROFUNDIDAD 

186 ( CURSOR AL ORIGEN ) 

190 FOR I=1 TO 22 ; PRINT : NEXT 1 

200 INPUT "DONDE DISPARAS (PRIMERO LA LETRA)"¿AS,M 
210 R=ASC(AS)-64 

220 D-ABS(M-X)+ABS(N-Y) 

230 ( CURSOR AL ORIGEN ) 

240 FOR 1=1 TO 2*N : PRINT ; NEXT 1 

250 PRINT SPC(2+3*M);D 

260 K=K+1 

270 IF D=0 THEN 350 

280 X=X+INT(3*RND)-1 

290 Y=Y+INT(3*RND)-1 

300 IF X=0 THEN X=2 

310 IF X=ll THEN X=9 

320 TF Y=0 THEN Y E 
330 IF Y=11 THEN Y=9 

340 GOTO 170 . 

350 ( CURSOR AL ORIGEN ) 

360 FOR I=1 TO 23 : PRINT : NEXT 1 
370 PRINT "HUNDIDO EN ";K; "INTENTOS" 
380 END 


9. RULETA (6.25) 


Haz un programa de simulación de una ruleta: tiene 36 números a los que 
se puede apostar, y el 0. Si sale el 0, todas las apuestas son para la casa. Si 
aciertas el número, el premio es tu apuesta multiplicada por 36. Además, los 36 mú- 
meros se clasifican en pares O impares, y pasa (19 o mayor) o falta; si ganas 
en estos casos, el premio es tu jugada multiplicada por dos. Empieza el Juego con 
P pis. y ve haciendo apuestas. El ordenador debe decir cuánto dinero te queda, 
y no permitirte apostar más de lo que tienes. El juego se acaba si te quedas sin 
dinero. 


En la variable Y se deposita el dinero que se apuesta a número; en la Y1l se 
deposita el dinero que se apuesta a par o impar y en la Y2 se deposita el 
dinero que se apuesta a pasa o falta. 


En X se coloca el número que sale en la ruleta y en Z el número al que 
apostamos; en Af, si es par o impar; y en Bf), si pasa o falta. 


Si el número X es par, entonces en K$ se coloca una P y si es impar, se 
coloca una 1. Si el número X es igual a 19 o mayor, en HÉ se coloca una P 
y si es menor que 19, una F. 


Para que un jugador no pueda apostar en cada caso más dinero del que 
tiene en ese momento, hemos recurrido a lo siguiente: en las líneas 110, 180 
y 250 se resta al dinero disponible el dinero que se pretende apostar. A con- 
tinuación comprobamos si lo que quedó es positivo o nulo. En caso contrario 
es que el jugador pretendia engañar a la ruleta. Le sacamos un mensaje y 
volvemos a poner en la variable P el dinero que tenía, para que haga una nueva 
apuesta, 


A continuación, con diversas bifurcaciones condicionales, vamos conside- 
rando todas las posibles alternativas que nos indica el enunciado del problema. 
La única que parece algo extraña es aquella en que nadic acierta, ni los 
Jugadores ni la banca. Para este caso hemos recurrido a un contador, de forma 
que si en él hay un 3, entonces perdemos todo lo apostado. 


En cuanto a la terminación del juego, heraos considerado el caso de no 
tener más dinero; pero si queremos finalizar el juego sin haberlo agotado, 
tendremos que pulsar la tecla RUN/STOP. Ñ 


Si no quieres apostar a alguna de lás cosas, pon cero en la cantidad que 
te juegas. 


Presentación en pantalla: 


CON QUE CANTIDAD ENTRAS AL CASIMO 
7 100908 


A QUE NUMERO APUESTAS - 

7 24 ne 

CUANTO DINERO 

? 59u 

APUESTAS A PARES O IMPARESCP1) 
71 

CUANTO DIMERO 

7 3669 

APUESTAS A PASA O FALTALPF) 
2 F 

CUANTO DINERO 

7 35508 

HA SóLIDO El NUMERO S 

HAS GANADO 3400 


TIENES. POR TANTO 18009 


10 REM SIMULACION DE RULETA 

20 PRINT “CON QUE CANTIDAD ENTRAS AL CASINO” 

30 INPUT P 

40 Pi=P 

50 PRINT : X==INTI37RND) : 1=0 

60 IF P=0 THEN PRINT “SE ACABO EL JUEGO, NO TIENES DINERO” : 
GOTO 460 

70 PRINT “A QUE NUMERO APUESTAS” 

$0 INPUT Z 

90 PRINT "CUANTO DINERO" 

100 INPUT Y 

HO P=P-Y : 1F P>=09 THEN 140 

120 PRINT “NO PUEDES APOSTAR MAS DINERO DEL QUE TIENES" 
130 P=P+Y ; GOTO 90 

140 PRINT “APUESTAS A PARES O IMPARES(P/IJ" 

150 INPUT Aj 

160 PRINT “CUANTO DINERO” 

170 INPUT Y1 

180 P=P-YI :1F P>=0 THEN 210 

190 PRINT “NO PUEDES APOSTAR MAS DINERO DEL QUE TIENES” 
200 P=P+YIl : GOTO 160 y 

210 PRINT “APUESTAS A PASA O FALTA(P/FJ" 

220 INPUT BY 

230 PRINT “CUANTO DINERO” 

240 INPUT Y2 
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256 P=P-Y2 : 1F P>=0 THEN 280 

260 PRINT “NO PUEDES APOSTAR MAS DINERO DEL QUE TLENES” 
270 P=P+Y2 : GOTO 30 

280 PRINT “HA SALIDO EL NUMERO”;X 


290 IF X>=19 THEN Hi="P" : GOTO 310 
300 E9="F” 
330 1F X2=INT(3/2) THEN K$="P" : GOTO.330 


320 Kf="P” 

330 1F X=0 THEN PRINT “HA GANADO LA BANCA" : GOTO 450 
340 IF X=Z THEN P=P+37*Y : GOTO 350 

350 I=1+1 

360 IF A$=K$ THEN P=P+2*Y1 : GOTO 380 

370 I=I+1 

380 1F BR=8$ THEN P=P+2Y2 : GOTO 400 

390 I=1+1 

400 1F I1=3 THEN PRINT * NO HAS GANADO “NADA” : GOTO 4350 
410 L=P--P1 

420 1F L=0 THEN ]=3 : GOTO 400 

430 1F L<0 THEN PRINT “HAS PERDIDO” -L + GOTO 450 

44) PRINT "HAS GANADO"L 

430 PRINT : PRINT “TIENES, POR TANTO"¡P : GOTO 40 

460 END 
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10. OGROS 


Estás en poder de una tribu de ogros que habita un laberinto de cuevas 
(aunque tú no lo sabes, son unos bromistas impenitentes, y encima vegetarianos). 
Hoy celebran su Fiesta del Quede; en ella comunican a sus prisioneros que 
serán devorados a la mañana siguiente y luego, disimuladamente, les dejan posibi- 
lidad de escapar, distribuyéndose ellos por las cuevas según indican las iniciales 
de sus nombres. 


Ántes de huir haces un sequito con tus pantalones y robas monedas de oro, 
diamantes, brazaletes y amuletos. Luego huyes ...¡ Has de saber que inmediata- 
mente te encontrarás con la enorme 


Arsaminiña, que se fingirá tu cómplice y te entregará un pesado amuleto y 
cinco grandes brazaletes, empujándote a seguir. 


Bacilonrio te preguntará la edad y te dará un diamante más de los años que 
tienes, haciéndote también seguir; ya tambaleándote por el peso llegarás a 


Carcajundia quien te dará tantas monedas como brazaletes Heves, quitándore 
tantos diamantes como amuletos tengas. 
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Démenciano cuenta el número de amuletos y diamantes que llevas y te envía 
por un túnel que te devuelve a Carcajundia, si tienes menos amuletos que dia- 
mantes y, en caso contrario, por otro que lleva a Eufemismondro. 


Eufemismondro te da tres amuletos, pero no te deja descansar ni un momento. 
AS 


Festibonia te enviará hacia Jocosondrón si tienes 10 amuletos o más: si 
tienes menos de cinco, a Guasononda; y en los demás casos a Histericundia. 


Guasononda te quita tantos brazaletes como amuletos tienes y te hace huir por 
un corredor que conduce a Irrisondro. 


Bistericundia te da dos monedas y se pone a gritar como su nombre indica, 
con lo que te largas sin más. 


Irrisondro te entrega un diamante por cada moneda que llevas, pero antes 
te ha quitado todos los diamantes que llevabas. 


Jocosondrón te quita todos los amuletos, brazaletes, monedas y un diamante 
“que a los ogros nos da suerte”, guardándolos para la siguiente Fiesta, y de un 
empellón te devuelve a la libertad! 


Hemos de programar esta epopeya, con comentarios de los protagonistas 
mencionados, de forma que conozcamos la situación de nuestro tesoro en cada 
momento. Podemos prescindir de un diagrama de flujo formal, papel que puede 
desempeñar el plano de las cuevas. El programa pedido puede quedar así: 


10 REM_OGROS 

20 (BORRAR LA PANTALLA) 
30 PRINT “PUEDES HUIR DE LOS OGROS.” :PRINT “HACES UN SACO CON LO 
S PANTALONES” 

40 PRINT : INPUT “CUANTOS AMULETOS COGES":AM 

50 PRINT : INPUT “CUANTAS MONEDAS DE ORO COGES"MO 

60 PRINT : INPUT “CUANTOS DIAMANTES":D] 

70 PRINT : INPUT “CUANTOS BRAZALETES”:BR 

30 (BORRAR LA PANTALLA) 

90 PRINT : PRINT : PRINT “ESCAPAS CON * ; PRINT 

100 PRINT TAB(L2xAM: AMULETOS” : PRINT 

110 PRINT TAB(L2xMO?' MONEDAS DE ORO" : PRINT 

120 PRINT TAB(12):D1:" DIAMANTES” : PRINT 

130 PRINT TAR(12):BR:" BRAZALETES” : PRINT 

140 GET AY ; 1F Ag="" TREN 140 

150 (BORRAR LA PANTALLA) 

160 PRINT * TE ENCUENTRAS CON ARSAMINIÑA QUE TE DA CINCO G 
RANDES *; 

170 PRINT “BRAZALETES Y TE CUELGA DEL CUELLO UN AMULETO CON UN 
PEDRUSCO QUE ”; 

180 PRINT “PARECE UN ADOQUIN” 

190 BR=BR+5 : AM=AM+1 : GOSUB 2000 

200 PRINT " ME LLAMAN BACILONDRIO;” : PRINT 

210 INPUT “CUANTOS AÑOS TIENES, PEDAZO DE COSA PEQUEÑA“:A 
RINT ? 


220.PRINT “ CON QUE TIENES”: “AÑOS, EH ? PUES TOMA “¡A+IDIAMANTE 
S Y VETE"; 

230 PRINT “ANTES DE QUE CAMBIE DE OPINION” 

240 DI=DI+A+! : GOSUB 2000 

259 PRINT : PRINT * SOY CARCAJUNDIA.” - PRINT 

260-:PRINT “ DEJAME VER CUANTOS BRAZALETES TIENES Y TE DARE MON 
EDAS” : PRINT 

268 BR=6 

270 PRINT * TIENES":¡BRBRAZALETES." : 
280 PRINT “TOMA”:BR“MONEDAS Y TE QUITO”; 
290 IF Di<==AM THEN PRINT “TODOS LOS ”; : 
300 PRINT AM; : DI=DI-AM 

310 PRINT “DIAMANTES.” : MO=MO+BR 

320 GOSUB 2000 

330 PRINT : PRINT “_ A MI ME LLAMAN DEMENCIANO, JUA, JUA “ : PRINT 

340 PRINT * . POR NADA "EN PARTICULAR .. * : PRINT 

350 PRINT TAB(12);"... JUA, JUA ..." : PRINT 

360 PRINT * A VER CUANTOS AMULETOS Y DIAMANTES TIENE MI! CHIQU 
TITO. 

370 1F AM>=DI THEN 440 

380 PRINT : PRINT * SOLO"¡AM'AMULETOS Y":DI“DIAMANTES.” ; PRINT 

390 PRINT “ NO CREES EN LAS SUPERSTICIONES, EH % : PRINT 

400 PRINT TAB(4):"... JUA, JUA .. ESO ME GUSTA .." : PRINT 


PRINT 


DI=0 : GOTO 310 


410 PRINT * VE POR EL CAMINO DE LA IZQUIERDA Y SALDRAS DE LA 
CUEVA" 

420 GOSUB 2000 

430 GOTO 250 

440 PRINT “ VEO QUE ERES INTELIGENTE Y LLEVAS MAS AMULETOS Q 


UE DIAMANTES” 

450 PRINT TAB(4)2... JUA, JUA .. ESO ME GUSTA .." : PRINT 

460 PRINT * VE POR EL CAMINO DE LA DERECHA Y SALDRAS DE LA € 
UEVA." 

470 GOSUB 2000 

480 PRINT : PRINT + YO SOY EUFEMISMONDRO .. NO TEMAS .." : PRINT 

490 PRINT “ ENSEÑAME LO QUE LLEVAS EN EL SAQUITO” : PRINT 

$00 PRINT * -- SOLO¡AM“AMULETOS ..." : PRINT 

510 PRINT “* TOMA ESTOS QUE SON BIEN GRANDES PRINT : AM=AM+3 
320 PRINT " LOS MEJORES AMULETOS SON LOS QUE MAS PESAN." : PRINT 
530 PRINT : PRINT : PRINT * .. Y AHORA ..” : PRINT 

549 PRINT = MB .CORRE!! 1 CORRE IP 

550 GOSUB 2000 

560 PRINT * HOLA SER DEL EXTERIOR, SOY FESTIBONIA. ME RECUERDAS 7” : 
PRINT 

570 PRINT " VEO QUE TIENES" 
580 PRINT * DEJAME CONTAR 
TO 700 

590 PRINT AM:"AMULETOS.” : PRINT 

600 PRINT “ NO SE COMO TE HAS ENTERADO, PERO ESE ES EL NUMERO Q 
UE DA *: 

610 PRINT “MEJOR SUERTE.” : PRINT 

620 PRINT = SIGUE POR EL CAMINO DE LA DERECHA Y” : PRINT “PODRA 
S ESCAPAR” . 

630 GOSUB 2000 

640 GOTO 860 

650 PRINT “AMULETOS.” : PRINT > 

660 PRINT “!ESE ES FL NUMERO QUE PERMITE LA HUIDA! : PRINT 

670 PRINT-" VE POR El CORREDOR CENTRAL 

680 GOSUB 2000 


1F AM<5 THEN 650 
1F AM>=10 THEN PRINT “ DIEZ ..: : GO 
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690 GOTO 750 

700 PRINT TAB(6);AM“AMULETOS .. MALA COSA ..* : PRINT 

TIO PRINT“ SAL POR EL CAMINO DE LA IZQUIERDA.” : PRINT 

720 PRINT * ES MUY PELIGROSO, PERO LOS OTROS SON MORTALES.” 
730 GOSUB 2000 

749 GOTO 1020 

750 PRINT “ASI QUE FESTIBONIA TE DUO QUE POR AQUI SE SALE ”; 
760 PRINT “. JE JE. : PRINT 

T70 PRINT * Y LLEVAS”¡AM“'AMULETOS, EH ? : PRINT 

780 PRINT TAB(8)"TE DAN SUERTE ? 

790 PRINT “ PUEDES QUEDARTELOS, PERO DAME >; 

800 IF BR<=AM THEN PRINT “TODOS LOS BRAZALETES” : BR=0 : GOTO 820 
810 PRINT AM;"BRAZALETES.” : BR=BR-AM 

820 PRINT : PRINT : PRINT “ SIGUE POR ESE CAMINO Y LLEGARAS A LA 
GRAN VIA” 

830 PRINT : PRINT * HIJA, JA, JA 10 

340 GOSUE 2000 

850 GOTO 940 

860 PRINT * SOY HISTERICUNDIA” : PRINT : PRINT 

870 PRINT ” TOMA DOS MONEDAS DE ORO Y VETE “ 

880 PRINT * DE AQUÍ QUE ME PONES NERVIOSA.” : MO=MO+2 

3890 FOR T=1 TO 500: NEXT T 

900 PRINT:PRINT :PRINT :PRINT :PRINT “ Mí QUE TE VAYAS UN” 

919 FOR TO 300 : NEXT T 

92) PRINT : PRINT : PRINT * UNI AAAAAAAAA A A AAA DA 21D 

930 GOSUB 2000 

940 PRINT : PRINT + YO SOY IRRISONDRO.” : PRINT 

950 PRINT * TRAE TODOS ESOS DIAMANTES Y MONEDAS” : PRINT 

960 PRINT “ LOS DIAMANTES POR AHORA SON MIOS Dl=6 

970 PRINT* 2 A VER CUANTAS MONEDAS TIENES PRINT 


980 PRINT : PRINT TAB(9IMO ; 
$990 PRINT “PUES TOMA “¡MO DIAMANTES Y” : PRINT “SIGUE POR ESE CAM 


INO." 

1000 DI=MO : GOSUB 2000 

1010 GOTO 250 

1020 PRINT : PRINT = l MARAVILLATE ANTE JOCOSONDRO !” 
1030 FOR T=1 TO 300 : NEXT T 

1040 PRINT : PRINT + ! EL SUBLIME GUARDIAN PF” 


1050 FOR Ta=1 TO 800 : NEXT T 

1060 PRINT : PRINT ; PRENT TAB(29)"..QUE SOY YO.” 

1070 FOR T=1i TO 800 : NEXT T 

1080 PRINT : PRINT : PRÍNT : PRENT* PUEDES SALIR, PERO ANTES DEJA E 
sos” 

1090 PRINT : PRINT " BRAZALETES, MONEDAS Y AMULETOS, Y * 

1100 PRINT * TAMBIEN ESE DIAMANTE QUE A LOS OGROS” 

110 PRINT “ NOS TRAE SUERTE" 

1120 FOR T=1 TO 2500 : NEXT T 

3130 PRINT : PRINT : PRINT * SIGUE POR ESE CAMINO Y LLEGARAS A” 
1140 PRINT “ UNA PARADA DE AUTOBUS. PASA CADA 107 

1150 PRINT * MINUTOS.” 

1160 FOR T=1 TO 1800 : NEXT T 


1170 PRINT : PRINT : PRINT * ARI 

1180 PRINT TAB(6)“NOSOTROS SOMOS VEGETARIANOS.” 
1190 DI=D]-1 : MO=0 : AM=0 : BR=0 

1200 GOSUB 2000 

1210 END 


2000 GET A$ : IF Ag="" THEN 2000 
2010 PRINT : PRINT : PRINT'AHORA TIENES” : PRINT 


2020 PRINT TAB(I2:4M:" AMULETOS” : PRINT 
2030 PRINT TAB(12):MO:" MONEDAS DE ORO” : PRINT 
2040 PRINT TAB(12:DI* DIAMANTES” : PRINT 

2050 PRINT TAB(12):BR:" BRAZALETES" 

2060 GET Ag : 
2070 (BORRAR LA PANTALLA) 
2080 RETURN 
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11. MASTER MIND 


El ordenador va a elegir al azar cuatro colores de entre estos seis: amarillo, 
blanco, marrón, negro, rojo y verde. Tú tienes que adivinar qué colores son y qué 
posición ocupan. Los colores pueden repetirse. 


La representación de cada color se hace con su inicial, Supongamos que 
el ordenador elige la sucesión de colores BAVV, a la que llamamos palabra 
solución y representamos por S$. Supongamos también que tú propones la pala- 
bra AMNV, que representamos por P$. En este caso, aciertas el color y posi- 
ción de la V; también aciertas el color, pero no la posición, de la A. 


Por cada acierto en color y posición, el ordenador escribirá un 1; y por 
cada color acertado, que no esté bien colocado, escribirá un 0. Veámoslo 
mejor en estos supuestos: 


Sf = BAVV 
PS = AMNV 10 
PS = BVAV 1100 


El programa que proponemos está dividido en cinco parte 


1) Presentación del juego. 


En las líneas 100-150 damos unas breves explicaciones del juego. 


2) Generación de la palabra solución. 


En las lineas 200-220 generamos aleatoriamente la palabra solución S$, 
de la siguiente manera: 


En la linea 210 establecemos la cadena de caracteres: 
PAL$=“ABMNRV” 


formada por los colores disponibles. La variable PAL$ es como la paleta de 
un pintor en la que el ordenador va a mojar aleatoriamente. En efecto, en 
la linea 220 se generan cuatro números aleatorios del 1 al 6. Según sea el 
número generado, el ordenador escoge de la paleta el color correspondiente, 
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según el orden que ocupa en ella, y forma la palabra S$. Así, por ejemplo, 
sí los cuatro múmeros extraídos son 2, 1, 6, 6, la palabra solución es, pre- 
cisamente, S$ = BAVV. 


3) Toma de palabra. 


Las líneas 300-395 constituyen la tercera parte del programa, donde, me- 
diánte INPUT, el ordeñador toma nuestra palabra Pf, al tiempo que controla 
su longitud y los errores de pulsación. Si ha habido equivocaciones, nos saca 
un mensaje de error y vuelve a pedirnos la palabra. Si la palabra es lícita, 
añade 1 al contador de intentos E. 


4) Comparación de palabras. 


En la cuarta patte, líneas 400-495, se compara la palabra solución S$ con 
la palabra propuesta por nosotros PH. 


En la linca 420 se hace el desguace de ambas palabras en las letras co- 
tresponidientes: 


La palabra Sf =< BAVV, da origen a Sf(1) =B, S$(2) =A, SR(3) = V, S$(4) = V. 


La palabra P9=AMNV, da origen a PR()=A, P$0)=M, PS(3)=N, 
PRA) =V. 


En las líneas 430-450, utilizando un ciclo FOR-NEXT, se cuentan las 
coincidencias en color y posición. El contador C se encarga de ello. Al mismo 
tiempo, eñ el caso de coincidencia, se cambian las letras coincidentes, por * 
en Sl) y por + en P$(), al objeto de evitar que se puedan contar como 
eolores iguales en el recuento que sigue. 


Las coincidencias en color, pero no en posición, se anotan en las lí- 
neas 460-495 utilizando un doble ciclo FOR-NEXT. La variable T es su con- 
tador. Cuando haya una coincidencia en color, es necesario cambiar por + 
la letra correspondiente de PA(J), para evitar contarla más de una vez. 


Partimos de: 


22 
> uo 
Z>wN 
Z<w 
<<. 


Después del primer recuento, la situación es ésta: 


SHBAVo. 
PRAMN<+ 


Después del segundo recuento, tenemos: 


S$: BA Vos. 
PS: + MN + 


5) Calificación de la jugada. 


En esta última parte, lineas 500-590, se forma la palabra PI$, a base de 
1 y 0, y se imprime al lado de P$. En el caso de que C sea 4, hemos acertado, 
y el juego finaliza. Si no, se nos pide otra palabra P$. 


100 REM MASTER MIND 
110 PRINT TAB(9)¿"MA S TER MIND" o: PRINT E 
120 PRINT "ELIJA 4 COLORES DE ENTRE LOS SIGUIENTES:" ; 
PRINT 

130 PRINT "A*AMARILLO  B=BLANCO  M=MARRON" 

140 PRINT "N=NEGRO R=ROJO V=VERDE" ; PRINT 
150 PRINT "CALIFICACION: 1 COLOR Y POSICION, 0 COLOR" 
PRINT 

200 REM ***GENERACION DE LA PALABRA SOLUCION*** 


210 PALS="ABMNRY" ; S$="" ; E=0 
220 FOR K=1 TO 4 ; X=INT(G6*RND+1) : S$=S$+MIDSCPALS,X, 
1) ; NEXT K 


300 REM ***TOMA DE PALABRA*** 

310 INPUT PS 

320 1F LEN(P$)<>4 THEN 370 

330 FOR I=1 TO 4 

340 PS(1I)=MID$(P$,1,1) 

350 IF P$(I)="A" OR P$(1I)="B" OR PS(I)="M" THEN 390 
360 IF PS(I)="N" OR PS(IJ="R" OR PS(I)="V" THEN 390 
370 ( CURSOR A LA LINEA ANTERIOR ); 

380 PRINT TAB(7);"SE EQUIVOCO. VUELVA A ESCRIBIR"; GOT 
o 310 

390 NEXT I 

395 E=E+1 

400 REM***COMPARACION DE PALABRAS*** 

410 0=0 : T=0 

420 FOR K=1 TO 4 : S$(X)=MIDS(S$,R,1) : PS(R)=MIDS(PS, 
K,1) : NEXT K 
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430 
440 
450 
460 
470 
480 
490 
495 
300 
510 
520 
530 
540 
550 
560 
570 
580 
590 
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FOR 1=1 TO 4 
1F-S$(1)=PS(1) THEN C=C+1 : SÍ$(II="*" : PpSOIS"S" 
NEXT 1 

FOR I=1 TO 4 

FOR J=1 TO 4 

IF S$(1)=P8(J) THEN T=T+1 : P$(JI)="+*" ; GOTO 495 
NEXT J 

NEXT 1 

REM*A*CALIFICACION DE LA JUGADA*** 

CA$="" ; IF C=0 THEN 530 


FOR K=1 TO C ; CAS$=CAS+"1" : NEXT K 
IF T=0 TREN 550 
FOR K=1 TO T ; CAS=CAS+"O" : NEXT K 


( CURSOR A LA LINEA ANTERIOR ); 

PRINT TAB(7);CA$ 

TF C0<>4 THEN 310 

PRINT : PRINT "ACERTO VD. DESPUES DE";¡E;"INTENTOS"” 
END 


12. LAS SIETE Y MEDIA (7.16) 


Haz un programa para jugar a las siete y media contra el ordenador. 
Suponemos conocidas las reglas del juego. El programa tiene tres partes: 


1* Reparto de cartas a los jugadores. Por lo menos uno de los dos no se 
ha plantado todavía. Ocupa hasta la línea 370. 


22 Las subrutinas: 
a) Subrutina 700: extracción de una carta. 
b) Subrutina $00: suma de las cartas de un jugador. 
c) Subrutina 1000: escritura en pantalla de las cartas, 


3. Cuando ya se han plantado los dos jugadores. El ordenador “enseña” 
sus cartas, que tenia “tapadas”, y analiza quién es el ganador. Ocupa 
desde la línea 380 hasta las subrutinas. 


1% PARTE: REPARTO DE CARTAS 


La variable S indica quién sale, quién recibe la primera carta. Es decisiva 
a la hora del recuento: si hay empate gana el que sea mano. La primera vez 
se pregunta mediante una instrucción INPUT quién sale; después el ordenador 
va alternando las salidas. Esto lo hace en la línea 640: 


S =ABS(INT(S — 1.5) +1 
Si $ valía 1, pasa a valer 2, y viceversa, por lo que cambia el jugador 
que sale. o 
Las variables Z1 y Z2 valen O mientras el jugador respectivo pide cartas, 
y valen 1 cuando el jugador se planta. Entonces sólo se dan cartas al otro 
jugador, hasta que también se plante y se pase al recuento final. 
22 PARTE: LAS SUBRUTINAS 


a) Subrutina 700, de extracción de una carta. Se ha imaginado la baraja 
como una tabla A(10,4) donde la primera cifra es el número de la carta y la 
segunda el palo. Así: 


A(8,2) es la Sota de Copas, 
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Al principio, la tabla A(10,4) está llena de ceros. Cada vez que el ordenador 
saca una carta, coloca un 1 en el lugar correspondiente de la tabla, y 
cuando lo hace el usuario, un 2. Esto sirve en primer lugar para no dar 
cartas repetidas. Si ya ha salido la Sota de Copas, no puede volver a salir 
(es la línea 720). Por otra parte esos valores, 1 y 2, se utilizan en la subru- 
tina 1000. 


b) Subrutina 800, de suma de las cartas de un jugador. Ahorra memoria 
ya que en el programa se acude a ella en cuatro ocasiones. Ya guardando 
en las variables 'T(1) y T(2) la suma de las cartas del ordenador y del usuario 
respectivamente. Antes de cada jugada el ordenador consulta la variable T(1), 
y si es T(1) > 5, se planta (líneas 220 y 230). 


c) Subrutina 1000, de escritura en pantalla de las cartas. El ordenador 
no nos enseña sus cartas, pero sí las nuestras cada vez que nos toca. Así 
sabremos las cartas que tenemos y decidimos si seguimos o nos plantamos. 
Al final, en el recuento de cartas para analizar el ganador, se presentan en 
pantalla todas nuestras cartas y todas las cartas del ordenador. 


32% PARTE: RECUENTO FINAL Y GANADOR 


Se llega a este punto cuando los dos jugadores se han plantado. La má- 
quina enseña primero todas las cartas del usuario (subrutina 1000) y al final 
su suma (variable T(2)). A continuación hace lo mismo con las suyas, que tenía 
tapadas. Luego señala el ganador, con todos los casos posibles (empate si los 
dos se han pasado, tiene en cuenta quién ha salido si las cartas dan la misma 
suma, etc.). 


La fínea 600 "muestra en pantalla la puntuación hasta el momento. 


10 REM SIETE Y MEDIA 

20 ( BORRAR LA PANTALLA ) 

30 DIM A(10,4),T(2) 

40 P1=0 : P2=0 

50 INPUT "QUIEN SALE: TU (1) O YO (2)";38 
60 21=0 :; Z2=0 : T(1)=0 : T(2)=0 

70 FOR 1=1 TO 10 : FOR J=1 TO 4 

80 A(1,J)=0 

90 NEXT J : NEXT 1 

100 1F $=1 THEN 150 

110 PRINT "YO COJO UNA CARTA" ; K=1 
120 GOSUB 700 

130 GO0SUB 800 


: 60 


140 1F S=1 THEN 200 

150 PRINT "TOMA UNA CARTA" : K=2 

160 GO0SUB 700 

170 GOSUB 800 

180 G08UB 1000 

190 IF $=1 THEN 110 

200 1F K=1 OR Z1=1 THEN 270 

210 REM JUEGA LA MAQUINA 

220 K=1 : IF T(X)<5 THEN 240 

230 Z1=1 : PRINT "ME PLANTO" ; GOTO 270 
240 PRINT "YO COJO OTRA CARTA" 

250 C0SYB 700 

260 GOSUB 800 

270 REM JUEGA El USUARIO 

280 1F Z2=1 THEN 310 

290 INPUT "QUIERES CARTA (1) O TE PLANTAS (2)";W 
300 IF $W=2 THEN Z2=1 

310 IF Zl=1 AND Z2=1 THEN 380 

320 1F Z2=1 THEN 210 

330 PRINT "TOMA OTRA CARTA" : K=2 

340 GOSUB 700 

350 COSUB 800 

360 S0SUB 1000 

370 coto 200 

380 REM PRESENTACION Y COMPUTO FINAL 

390 PRINT "TUS CARTAS" : K=2 

400 FOR I=1 TO 10 : FOR J=1 70 4 

410 IF A(I,J)<>k THEN 430 

420 GOSUB 1000 

430 NEXT J : NEXT 1 

3440 PRINT : PRINT "SUMAN"¿T(K) 

450 IF K=l THEN 490 

460 IF T(2)>7.5 THEN PRINT "TE HAS PASADO" 
470 PRINT : PRINT : PRINT "MIS CARTAS" ; K=1 
480 GOTO 400 

490 IF T(1)>7.5 THEN PRINT "ME PASE" 

500 1F T(1)>7.5 AND T(2)>7.5 THEN 590 

510 IF T(1)<8 AND 7(2)<8 THEN 550 

520 IF T(1)>7.5 THEN 540 

530 PRINT " TE GANO" ; Pl=Pl+1 : GOTO 600 
540 PRINT " ME GANAS" : P2=P2+1 : GOTO 600 
5509 IF T(1)>7(2) THEN 530 

560 1F T(2)>T(1) THEN 540 

570 PRINT "POR LA MANO"; 

580 ON S GOTO 540,530 

590 PRINT "TABLAS" 

600 PRINT : PRINT "PUNTUACION: YO";P1;"TU"¿P2 


610 
:620 
630 
640 
700 
710 
720 
730 
740 
800 
810 
820 
830 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1030 
1090 
1100 
1110 
1120 
1130 
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INPUT "OTRA PARTIDA (S/N)";A$ 
IF A$="N" THEN END 
( BORRAR LA PANTALLA ) 
S=ABS(INT(S-1.5))+1 : GOTO 60 
REM EXTRACCION DE UNA CARTA 
IsINT(1O*RND)+1 ; JSINT(4*RND)+1 
IF A(1,J)<>0 THEN 710 
A(1,3)=k 
RETURN 
REM PUNTUACION DE CADA JUGADOR 
IF 1<8 THEN T(K)=T(X)+1 
17 1>=8 THEN T(R)=T(K)+.5 
RETURN 
REM ESCRITURA DE LA CARTA 
IF 1=1 THEN A$="AS" : GOTO 1070 
IF 1<8 THEN AS=STRS(I) : GOTO 1070 
ON 1-7 GOTO 1040,1050,1060 
AS="SOTA" : GOTO 1070 
AS="CABALLO" ; GOTO 1070 
ASSUREY" 
ON J GOTO 1080,1090,1100,1110 
B$=" DE OROS" : GOTO 1120 
B$=" DE COPAS" : GOTO 1120 
B$=" DE ESPADAS" : GOTO 1120 
B$=" DE BASTOS" 
PRINT A$+BS 
RETURN 


2. SIMULACIONES 


SS 


13. LOTERIA (6.24) 


Simula la extracción de los tres primeros' premios de la Lotería Nacional 
(números desde el 00000 al 59999). A un mismo número no le pueden tocar 
dos premios. 


El programa es muy sencillo. Consiste en obtener un número aleatorio A 
comprendido entre O y 59999, que será el del primer premio. 


A continuación se extrae otro número B, para el segundo premio, Se com- 
para B con A, y si son iguales, se efectúa otra extracción para B. Si no lo 
son, se pasa a extraer el tercer número C, que a su vez se compara con los 
anteriores. En el caso de coincidencias, se efectúa una nueva extracción; y si 
no las hay, se pasa a imprimir los tres números. 


10 REM LOTERIA 

20 ( BORRAR LA PANTALLA ) 

30 A=INT(600004RND) 

40 B=INT(G0000*RND) 

50. IF B=A THEN 40 

60 C=INT(60000FRND) 

70 1F C=A OR C=B TEEN 60 

80 PRINT "EL PRIMER PREMIO ES "jA 


90 PRINT 

100 PRINT "EL SEGUNDO PREMIO ES ";B 
110 PRINT 

120 PRINT "EL TERCER PREMIO ES ";C 
130 END 
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14, LANZAMIENTO DE UNA MONEDA (6.16) 


Simular el lanzamiento de una moneda N veces. Al final interesa saber el 
námero de lanzamientos y el número de caras y cruces. Durante los lanza- 
mientos puedes hacer que cada vez que salga “cara” aparezca en la pentalla un 
carácter (C por ejemplo) y por cada “cruz” un signo +. 


Simulamos la moneda mediante la función RND. En la línea 70 generamos 
aleatoriamente O ó 1; según salga uno u otro, imprimimos C ó +. 


Hemos establecido un contador de caras en la segunda instrucción de la 
línea 80. 


10 REM LANZAMIENTO DE YNA MONEDA 

20 ( BORRAR LA PANTALLA ) 

30 k=0 

40 INPUT "NUMERO DE LANZAMIENTOS";N 
50 ( BORRAR LA PANTALLA ) 

60 FOR I=1 TO N 

70 A=INT(2*RND) 

80 IF A=0 TREN PRINT "0"; : K=K+1 : GOTO 100 
90 PRINT "+"; 

100 NEXT 1 

110 FOR I=1 TO 5 : PRINT : NEXT 1 
120 PRINT "NUMERO DE LANZAMIENTOS"¿N 
130 PRINT "NUMERO DE CARAS";K 

140 PRINT "NUMERO DE CRUCES” ¿N-k 

150 END 


15. ¡QUE QUINIELA! 


Obtén los 14 signos de una quiniela de fútbol, teniendo en cuenta una pro- 
babilidad del 50% para el signo 1, del 30% para el signo X y del 20% para 
el signo 2. 


La solución es equivalente al lanzamiento de un dado que tuviera diez 
caras. El signo 1, tiene una probabilidad de 5/10, el signo X de 3/10 y el 
signo 2 de 2/10. Por tanto, los valores del 1 al 5 son para el 1, del 6 al 8 
para la X y el 9 y el 10 para el 2. 


Presentación en pantalla: 


PARTICO 1 - SIGNO 1 
PARTIDO £ - SIGNO 1 
PARTIDO 3 - SIGNO » 
PARTIDO 3 - SIGNO 1 
PARTIAD 3 - SIBNO MX 
PARTIDO 6 - SIGNO X 
PARTIDO Y - SIGNO 2 
PARTIDO 8 - SIGNO 1 
PARTIDO 9 - SIGNO X 


PARTIDO 19 - SIGNO 
PARTIDO 11 - SIGNO 
PARTIDO 12 - SIGNO 
PARTIDO 13 - SIGNO 
PARTIDO 19 - SIGNO 


Paba a o 


10 REM 1 QUE QUINIELA ! 

20 REM 108 CATORCE PARTIDOS 

30 FOR 1=1 TO 14 

40 REM LANZAMIENTO DEL DADO DE 10 CARAS 

50 U>INT(10%+RND)+1 

60 IF U<=5 THEN PRINT "PARTIDO";1;"- SIGNO 1" 

70 IF U>5 AND U<9 THEN PRINT "PARTIDO";1;"- SIGNO X" 
80 IF U>8 AND U<=10 THEN PRINT "PARTIDO";1¿"- SIGNO 2" 
90 NEXT 1 

100 END 
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JELA.MILLONARIA 


ón los 14 signos de una quiniela de fútbol, teniendo en cuenta una pro- 


bilidad igual para cada uno de los signos 1, X y 2. 


La solución, en este caso, se nos presenta como el lanzamiento de un 


dado de tres caras. Identificamos los números con los signos de la siguiente 
manera: el uno es el signo X, el dos es el signo 1 y el tres es el signo 2. 


Presentación en pantalla: 


FARTIDO 1 - SIGNO 2 

PARTIDO 2 - SIGNO 1 

PARTIDO 3 - SIGNO X $ 
PARTIDO 3 - SIGNO X 

PARTIDO S - SIGNO Xx 

PARTIDA 6 - SIGND 2 

PARTIDO 7 - SIGNO 1 

PARTIDO E - SIGNO 2 

PARTIDO 8 - SIGNO NX 

PARTIDO 10 - SIGNO Xx 

PARTIDO 11 - SIGNO 2 

PARTIDO 12 - SIGNO 2 

PARTIDO 13 - SIGNO 2 

PARTIDO 14 - SIGNO 2 

10 REM QUINIELA MILLONARIA 

20 REM LOS CATORCE PARTIDOS 

30 FOR I=1 To 14 

40 REM LANZAMIENTO DEL DADO DE 3 CARAS 
50 USINT(3*RRD)+1 


60 
70 
80 
90 


ON Y GOTO 70,90,110 

PRINT "PARTIDO";I¿"- SIGNO E" 
GOTO 120 

PRINT "PARTIDO";1¿"- SIGNO 1* 


100 coto 120 

110 PRINT "PARTIDO";1;"- SICNO 2" 
120 NEXT 1 

130 END 
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17. LA BAÑERA (4.9) 


Una bañera tiene grifo y sumidero. Su capacidad es de L litros, el grifo 
echa G litros por minuto y el sumidero desagua S en el mismo tiempo. Si con- 
sideramos el proceso desde que la bañera tiene Lo litros, ¿cuánto tiempo tarda 
en vaciarse o llenarse? (Si G y S son iguales ha de salir un aviso en pantalla.) 
Hemos de hacer un programa que nos dé la situación del sistema minuto a mi- 
huto, 


Unas de las posibilidades nuevas que ofrecen los ordenadores es la de 
simular, rápida y sencillamente, situaciones reales en condiciones ventajosas. 
Resulta sencillo realizar este experimento midiendo el volumen de la bañera 
y el caudal del grifo, pero es problemática la alteración 2 voluntad del caudal 
del desagúe. 


Para esta simulación empleamos el siguiente algoritmo: 


do Inicializar el tiempo, T 
Hacer 
Entrada de datos 
hasta que G y $ sean distintos 
hacer, mientras tanto, 
Escribir mensaje de aviso 
Fin de Hacer 
3. Mientras 0 < Lo <L 


hacer 
Lo =Lo+G-S 
T=T+1i 


Escribir el estado del sistema 
Fin de Mientras 
4 Silo<0 
entonces 
Escribir “Vacía a los”¿T;“minutos”. 
sino 
Escribir “Rebosa a los”;T;“minutos”. 
Fin de Si 
5. FIN 
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lujo asociado será: 


INICIO 


Régimen 
estacionario 


El programa resultante es: 


10 REM BAÑERA 
20 T=0 
30 INPUT “CAPACIDAD DE LA BAÑERA Hed LITROS)”¡L 
49 INPUT “CAUDAL DEL GRIFO (L/MIN)"¡G 
Pe INPUT “CAPACIDAD DEL SUMIDERO (L,/MINJ":S 
60 INPUT "CONTENIDO DE LA BAÑERA AL COMENZAR”:L0 
70 1F G=S THEN PRINT “DESAGUA LO MISMO QUE ENTRA. SITUACION ESTA 
CIONARIA” :GOTO 30 
100 1F NOT (0<LO0 AND 16<L) THEN 200 
110 L0=104+G-S:T=T-+1 
120 PRINT TABQ):T,“MIN”:TABCO):LO“LITROS” 
130 GOTO 100 
200 PRINT :PRINT 
210 IF LO<=0 THEN PRINT “VACIA A LOS 
220 PRINT “REBOSA A LOS”:T/“MINUTOS.” 
300 END 


“MINUTOS.” : GOTO 300 


nm 


18. CAMPANADAS (4.11) 


na 


¿Cuéntas campanadas da un relój desde la hora H hasta las doce de la noche? 


CAMPANADAS 


HORA H 
MAÑANA O TARDE AS) 


IMPRIMIR 
Az 


IMPRIMIR 
€ CAMPANADAS 


El ordenador pregunta la hora (H) y a continuación comienza el bucle: 
deberá dar H campanadas, luego H + 1, y así hasta llegar a 12. Cada hora 
da 1 campanadas que se acumulan en la variable C. 


Como capricho hemos anidado otro bucle que hace que a la hora 1, en 
la que se dan 1 campanadas, se impriman 1 signos en una línea, en nuestro 
caso la letra A. 


El bucle se acaba al llegar a las 12 horas. Viene ahora la consideración 
de si era por la mañana o por la tarde: si era por la tarde, se puede terminar 
el programa imprimiendo el valor de C; pero si era por la mañana, quedan 
todavia 12 horas por transcurrir. Hay que hacer H == 1 y reiterar el bucle 
anterior, h 


Una observación: para que esta reiteración se efectúe una sola vez, habrá 
que cambiar la variable Af a “TARDE”; si no el proceso seguiría hasta el 
infinito. Dicho de otra forma: al llegar a las 12 del mediodia hay que colocar 
el reloj a la una (H = 1) de la tarde (A$ = “TARDE”). 


QUE HORA ES? 18 
MAÑANA O TARDE? MAÑANA 


AAA SAA 
A ñAAAARARAACASGA 
BA-ES AA ARA 
A 

RA 

na RAR A 

A A e A 

5 R ARA 

AR AASGA 
BRASAS 

S ñÁÑAAARA ASA A 
ARAAaA.,RA.A AAROAA 
BASAAAA A RIA 
ARÑAAAANDA AAA 
Añ.5ñASAAAAA ACA A 


DA 111 CAMPANADAS 


mE 


10, 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
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REM CAMPAÑADAS 


PRINT : PRINT 


INPUT "QUE HORA ES";E 
INPUT "MAÑANA O TARDE"; AS 
c=0 

PRINT : PRINT 

FOR I=H TO 12 

FOR J=1 TO 1 

PRINT "A"; 

NEXT J 

PRINT 

C=C+1 

NEXT 1 

IF AÍf="TARDE" THEN 180 
AS="TARDE" 

E=1 

GOTO 60 

PRINT : PRINT 

PRINT "DA";¿C¿" CAMPANADAS" 
END 


19. SUMA DE LOS PUNTOS DE UN DADO 


Se arroja un dado tres veces consecutivas y se considera la suma de los 
puntos obtenidos. Esta varía entre 3 y 18, Hallar cuántas veces puede aparecer 
cada suma. 


La suma 3 aparece una sola vez: cuando obtenemos (1,1,1); la suma 4 
aparece tres veces: (1,1.2), (1,2,1) y (2,1,1); etc. 


Podemos encargar al ordenador este trabajo de recuento. Para ello formará 
todas las ternas posibles (1J,K), variando los índices de l a 6 con un triple 
ciclo FOR-NEXT. Cada vez que obtenga una terna (1,3,K), sumará sus ele- 
mentos: 


S=I+3+K 


Para hacer el recuento de cada suma S, se utiliza la variable de Índice F(S) 
(inicializada previamente en la línea 40): 


ES) =F(S)+1 


Una vez ejecutados los tres ciclos, encontramos la frecuencia de cada suma 
en la lista F(S); y se las puede imprimir con un simple ciclo FOR-NEXT. 


10 REM FRECUENCIAS DE LAS SUMAS DE LOS PUNTOS DE UN DADO 
20 DIM F(18) 

30 [ BORRAR LA PANTALLA ) 

40 FOR 5=3 TO 18 ; F(S)=0 ; NEXT $ 

50 FOR 1I=1 T70-6 

60 FOR J=1 TO 6 

70 FOR K=1 TO 6 

80 S=I+J+k 

90 F(s)=F(S)+1 

100 NEXT K 

110 NEXT J 

120 NEXT 1 

130 FOR 5=3 70 J8 

140 PRINT "LA SUMA "353" APARECE "¿P(S);" VECES" 
150 NEXT S 

160 END 


as 


20, FRECUENCIAS RELATIVAS DE UN DADO 


Simula el lanzamiento de un dado N veces; cuenta las frecuencias de cada 
múmero utilizando una variable de índice e imprime las frecuencias relativas 
correspondientes. Te sugerimos repetir la simulación varias veces con valores 
crecientes de N y observar la estabilización de las frecuencias relativas, 


Generamos N enteros aleatorios comprendidos entre 1 y 6 y los guardamos 
en la variable con índice F(X), que nos cuenta las frecuencias absolutas 
(instrucciones 50-80). 


En la línea 200 calculamos las frecuencias relativas FR(X), redondeando 
los resultados a cuatro cifras decimales. 


10 REM F.PELATIVAS DE UN DADO 

20 DIM F(6) 

30 ( BORRAR La PANTALLA ) 

40 INPUT "CUANTAS TIRADAS"¿N 

50 FOR I=1 TO N 

69 X-IET(RND*6)+1 

70 F(X)=F(X)+1 

30 NEXT 1 

90 ( BORRAR LA PANTALLA ) 

100 PRINT TAB(9);"F.RELATIVAS DE UN DADO” 
110 PRINT TAB(9);"ener== ue 
120 PRINT 

130 FOR Xs=1 TO 6 

140 PRINT TAB(3+(X-1)*6)¿X; 

150 NEXT X 

160 PRINT 

170 FOR I=1 TO 40 ; PRINT "=""; ; NEXT 1 
180 PRINT 

190 YOR X=1 TO 6 

200 FR(X)=INT(F(X)/N*1E4+0.5)/1E4 

210 PRINT TAB(2+6*(X-1))¿FR(Z) ; 

220 NEXT X 

230 POR I=1 TO 10 : PRINT ; NEXT 1 

240 PRINT "QUIERES EFECTUAR OTRA TIRADA :(5/N)" 
250 GET R$ 

260 IF R$" AND RS<X>”N" THEN 250 

270 IP R$="S" THEN 30 

280 PRINT ; PRINT "ADIOS." 

290 END 
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21, ESTABILIZACION DE LAS FRECUENCIAS (6.19) 


Vamos a simular de nuevo el lanzamiento de una moneda, pero esta vez el 
programa se parará cuando se estabilicen las frecuencias relativas. Después de 
cada lanzamiento se halla la frecuencia relativa de las caras. Cuando esa fre- 
cuencia difiera de la del lanzamiento anterior en menos de 0.01 el programa 
parará, indicando el número de lanzamientos, el de caras y cruces, y las dos 
últimas frecuencias relativas de caras redondeadas a 4 decimales. Piensa las 
dificultades que pueden presentarse en las primeras tiradas. 


Si tiramos una moneda y calculamos la frecuencia relativa de las caras, 
(o de las cruces) observamos que a medida que aumenta el número de tiradas, 
dichas frecuencias tienden a estabilizarse; o dicho de otro modo, la diferencia 
entre dos frecuencias relativas consecutivas se aproxima a cero. 


En las primeras tiradas puede ocurrir que dos frecuencias relativas con- 
secutivas sean iguales. Por ejemplo, si en las tres primeras tiradas no ha salido 
ninguna cara, las frecuencias relativas:son cero, y si han salido tres caras, las 
frecuencias son iguales a uno. En ambos casos, la diferencia entre dos fre- 
cuencias relativas es cero: cumplen la condición pedida, pero no hemos llegado 
a la estabilización porque la igualdad se romperá en las tiradas siguientes. 
Por tanto, consideramos que las frecuencias se estabilizan, con el grado de 
aproximación deseado, cuando una frecuencia difiera de la amterior en menos 
de 0.01, y ambas sean diferentes. 


En nuestro programa la variable N recoge el número de tiradas y C el 
número de caras correspondiente a N tiradas. 


Mediante un ciclo FOR-NEXT, líneas 40-90, simulamos dos lanzamientos. 
Si el número A es cero, contabilizamos una cara. Calculadas las frecuencias 
relativas FR(1) y FR(2), en la línea 100 hallamos el valor absoluto de su 
diferencia, que sometemos en la línea 110 a comparación con las condiciones 
exigidas. En caso de que se cumplan, redondeamos las frecuencias e impri- 
mimos los resultados. Si no, hacemos FR(1) igual a FR(2) y volvemos al ciclo, 
generando un sólo número A, para lo cual 2 la variable ] le asignamos el 
valor 2, que mantendrá hasta que finalice el problema. 


n 


10 REM ESTABILIZACION FR. RELATIVAS 
20 ( BORRAR LA PANTALLA ) 

30 N=0 : C=0 ; K=]l : DIM FR(2) 

40 FOR 1=K TO 2 

50 A=INT(2*RND) 

60 N=N+1 

70 IF A=0 THEN C=0+1 

80 FR(I)=C/N 

90 NEXT 1 

100 D=ABS(FR(1)-FR(2)) 

110 IF pD<.01 AND FR(1)<>FR(2) TEEN 130 

120 FR(1)=FR(2) : K=2 : GOTO 40 

130 FR(1)=INT(FR(1)*1E4+.5)/184 : FR(2)=INT(FR(2)* 
1£4+.5)/1E4 

140 FOR I=1 TO 10 : PRINT : NEXY 1 

150 PRINT "HEMOS EFECTUADO"¿N;"LANZAMIENTOS" 

160 PRINT : PRINT "HEMOS OBTENIDO";C;"CARAS Y"¿N-C 
¿"CRUCES" 

170 PRINT : PRINT "LAS DOS ULTIMAS FRECUENCIAS SON 
"SER "Y" FR(2) 

180 END 
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22. LA COLECCION DE CROMOS (7.20) 


¿Como cuántos cromos hay que comprar para completar un úlbum de cien? 


Suponemos que los cromos se adquieren de uno en uno y que todos se pre- 
sentan con igual probabilidad. Los cromos estár numerados del 1 al 100; así 
que comprar un cromo es lo mismo que extraer al azar un número entre el 
1 y el 190. Esto lo puedes conseguir mediante la instrucción: 


N = INT(100 + RND + 1) (1 


El álbum formado por las casillas donde hay que pegar los cromos está 
representado por la variable de índice CN), cuyos elementos constituyen la 
lista: 


C(D), C(2), +**, C(LO0) 


Inicialmente todos los elementos de esta lista valen cero (están sin cromo). 
Si el número N obtenido en la instrucción (1) es, por ejemplo, 23, sumaremos 
a la variable C(23) una unidad: 


CN) = AN +1 


Ahora en la casilla 23 habrá, por lo menos, un eromo (exactamente uno, 
si antes no había ninguno). 


La intuición nos dice que tenemos que extraer bastantes más de cien cromos, 
porque muchos los vamos a obtener repetidos; así que la instrucción (1) se 
tendrá que ejecutar muchas veces. Hay que detener el proceso cuando todas 
las casillas estén completas, o lo que es igual: cuando todas las variables 
CL), --, C(L00) contengan valores distintos de 0. Asi pues, una forma de termi- 
nar es comprobar que todos los números de la lista C(N) son no nulos. Hay una 
forma elegante de hacerlo: cada vez que obtengamos un cromo nuevo (que no 
haya aparecido antes) contaremos uno más en el contador de cromos nuevos: 


IF C(N)=0 THEN K=K+1 
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La compra se detiene cuando K es 100: 


1F K=100 THEN (hacía el final) 


Es claro que hay que establecer también un contador A que lleve la cuenta 
del total de cromos adquiridos y, al final, imprimir el valor de A. 


Puedes completar el programa imprimiendo también los valores de la lista 
C(D), +, C(100) en forma de una tabla de 10 x 10, 


Así tendrás idea de cuántas veces se repite cada cromo. 


10 
20 
30 
40 
50 
60 
70 
380 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
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REM COLECCION DE CROMOS 
C( BORBAR LA PANTALLA ) 
PRINT "COMO CUANTOS CROMOS HAY QUE ADQUIRIR" 
PRINT "PARA COMPLETAR UN ALBUM DE CIEN 2" 
A=0 : K=0 : DIM c(100) 
A=4+1 
N=INT(100%RND+1) 

IF C(N)=0 THEN K=x+1 
C(N)=C(N)+1 

IF K<100 THEN 60 

PRINT "NUMERO DE CROMOS ADQUIRIDOS: ";A 
PRINT 

REM ESCRITURA DE LA TABLA 

FOR 1=0 TO 9 

FOR J=1 TO 10 

PRINT TAB(4*(J-1))¿C(10*1+3); 

NEXT J 

PRINT 

PRINS 

NEXT 1 

END 


23. EL DESTINO DE UNA URNA (7.21) 


Se parte de una urna cuya composición inicial es una bola blanca y otra 
negra. Se extrae una bola al azar y se la devuelve a la urna acompañada de 
otra del mismo color. Se repite el proceso hasta que en la urña haya cien bolas. 


Podemos considerar que la urna es un sistema que cambia de estado a lo 
largo de las distintas etapas. Desde la etapa inicial (etapa 2, porque en la urna 
hay dos bolas) hasta la etapa final (etapa 100) la urna atraviesa distintos 
estados, entendiendo por estado cada una de las composiciones posibles de la urna; 
asi, por ejemplo, en la etapa 3 hay dos estados posibles: una blanca y dos negras 
o dos blancas y una negra. 


PROPORCION 
ETAPA ESTADO BLANCAS 


Pa =0,33 


Pa = 0,25 


100 cien bolas 


En la etapa 100 hay 99 estados posibles, ¿A cuál de estos 99 estados llegará la 
urna? Imposible predecirlo: todos ellos son igualmente probables; es decir, la pro- 
babilidad de que la urna llegue a un estado final concreto es 1/99. 
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Aunque al principio no podamos predecir qué estado final alcanzará la 
urna, sí que lo podemos hacer (con cierta seguridad) cuando hayan transcu- 
rrido algunas etapas, porque se puede comprobar, mediante simulación, que la pro- 
porción de bolas blancas se estabiliza a lo largo del proceso. 


Diseña un programa de modo que en cada etapa se imprima en pantalla la 
proporción de bolas blancas. Comprobarás el hecho notable de que dicha pro- 
porción se estabiliza a partir de una cierta etapa. 


En el programa que ofrecemos, las variables T, B y P representan, res- 
pectivamente, el número total de bolas, el número de blancas y la proporción 
de blancas en cada etapa. Las variables B y P se inicializar en la línea 30, 
Observa que P también representa la probabilidad de extraer de la urna una 
bola blanca. 


Las 93 extracciones se hacen por medio de un ciclo FOR-NEXT (Lf- 
neas 60-110), en el que T varía desde 3 hasta 100. 


En cada etapa, se genera un número aleatorio que decide si sale blanca o 
negra; si este número es menor que P, la bola extraída es blanca y se suma 1 
al contador B. a 


En la línea 80 se calcula la probabilidad P, y en la 90 se imprime T y la 
probabilidad redondeada a dos decimales. 


En la línea 100 hemos colocado un ciclo FOR-NEXT, cuyo único propó- 
sito es retardar la extracción de la siguiente bola para que el proceso dis- 
curra lentamente y pueda ser observado en la pantalla. 


10 REM EL DESTINO DE UNA URNA 
20 ( BORRAR LA PANTALLA ) 

30 B=1 : P=0.50 

40 PRINT "ETAPA", "P.BLANCAS" 
50 PRINT 2,0,50 

60 FOR T=3 TO 100 

70 17 RND<P THEN B=3+1 

80 P=B/T 

90 PRINT T,INT(100*P+0.5)/100 
100 FOR 1=1 70 500 ; NEXT 1 
110 NEXT T 

120 END 
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24. ELECCIONES (7.10) 


A unas elecciones se presentan N candidatos. Simular la votación y realizar 
el escrutinio. Muéstrese al final, la lista ordenada de los candidatos según les 
votos obtenidos. 


La variable C$0, (1 = 1,2,3,....N) recoge los nombres de Jos N candidatos 
y la variable C(I) el número de votos conseguido por el candidato 1. 


Introducidos el número de candidatos N, el de votantes V, y los nombres 
de los candidatos, se generan V números aleatorios enteros (de 1 a N), líneas 
110-140 y se van contando los votos de cada candidato. En las líneas 160-230 
se ordena ía lista C(D) de mayor a menor, lo que permite ordenar simultánea- 
mente C$(). Ordenadas ambas listas, se presentan en pantalla, lineas 250-330. 


10 REM ELECCIONES 

20 ( BORRAR LA PANTALLA ) 

30 INPUT "CUANTOS CANDIDATOS SE PRESENTAN" ;N 
40 PRINT : INPUT "CUANTOS CIUDADANOS VOTAN"¿V 
50 DIN C$(N),C(N) 

60 FOR I=1 TO Y : C$CII="" ; C(I)=0 : NEXT 1 
70 FOR 1=0 70 39 : PRINT TAB(1);"="; : NEXT 1 
80 FOR I=l TO N 

90 PRINT : PRINT "NOMBRE DEL CANDIDATO";I;3 : 
INPUT C$(1) 

100 NEXT 1 

110 FOR I=1 TO V 

120 A-INT(RND*N+1) 

130 cla)=c(4)+1 

149 NEXT 1 

150 REM ORDENACION DE LA LISTA 

160 FOR 1=i TO N-1 

170 FOR J=1 TO N-1 

180 1F C(J)>=C(3+1) THEN 220 

190 x=C(J) : X$=C0$(3) 

200 ClI)=G(I+1) : C0$CI)=CHC3+1) 

210 C(J+1)=X : Ccó(J+1)=X$ 

220 NEXT J 

230 NEXT 1 

240 REM LISTA ORDENADA 
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'RINT + UPRINT 
OR-I=1 TO N 
RINT C$(1); 


O FOR J=1 To (25-LEN(OS(1))) 


PRINT "."; 

NEXT J 

PRINT TAB(25);C(1);"VOTOS" 
PRINT 

NEXT 1 

END 


25. BARAJA (7.15) 


De una baraja española, ei ordenador debe repartir cinco cartas a cada uno 
de los cuatro jugadores de una partida. 


JUGADOR NUMERO 1 1 
SEIS DE ESPADAS 
CUATRO DE BASTOS 
DOS DE OROS 
TRES DE COPAS 
CINCO DE BASTOS 
JUGADOR NUMERO 


du 


DOS DE COPAS 
CABALLO DE BASTOS 
CUATRO DE COPAS 
CABALLO DE COPAS 
AS DE OROS 
JUGADOR NUMERO 3 1 
AS DE COPAS 
TRES DE ESPADAS 
Ras DE BASTOS 
SEIS DE COPAS 
CUATRO DE ESPADAS 
-TUGADOR NUMERO 4 1 
CABALLO DE OROS 
CINCO DE ESPADAS 
REY DE EÁSTOS 
DOS DE ESPADAS 
REY DE ESPADAS 


Hemos dividido el programa en tres partes: creación de la baraja, re- 
parto de las cartas e impresión del reparto. 


Creación de la baraja. 


La baraja va a estar constituida por los elementos de la tabla 890,5): F=1 
2 :0,10,3=1,2,3,4: 


ASDEOROS ASDECOPAS ASDE ESPADAS AS DE BASTOS 
DOS DEOROS DOS DE COPAS DOS DE ESPADAS DOS DE BASTOS 


REY DEOROS REY DE COPAS REY DE ESPADAS REY DE BASTOS 
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No es necesario teclear los cuarenta elementos: el propio programa cerca 
la tabla a partir de dos líneas DATA: 


150 DATA AS, DOS, TRES... SOTA, CABALLO, REY 
160 DATA DE OROS, DE COPAS, DE ESPADAS, DE BASTOS 


Los elementos de la primera DATA se guardan en la variable de índice NÍ(D 
(líncas 40, 50 y 60); y los de la segunda se ponen en la variable de ín- 
dice PG). 


Con un doble ciclo (lineas 100-140) se construyen los cuarenta elementos 
de la baraja, utilizando para ello la instrucción: 


391.) =N$0) +" "+Pg0) 


Reparto de las cartas. 


Por medio de un doble ciclo (líneas 180-240) se reparten las cinco cartas 
a los cuatro jugadores, de la siguiente manera: se obtiene aleatoriamente 
un par de números (1,3), que marca la posición del naipe en la tabla B4(1,J); 
si el naipe no ha sido extraído previamente, se guarda en la tabla ASK(L,M), 
L=1, 2, 3, 4, M=1, 2, 3, 4, 5; y se hace BHLD)=“0” para indicar que ese 
naipe ya no se puede extraer. Si ocurriera que el naipe de la posición (1,3) ya 
hubiera sido extraído, entonces se prueba con otra pareja aleatoria. Clara- 
mente se ve que en la tabla A$(L,M) se van guardando las cartas corres- 
pondientes a los cuatro jugadores. 


Impresión del reparto. 


Las líneas 260-310 sirven para imprimir la tabla A$(L,M) en la pantalla, 
con lo cual podemos visualizar las cartas que han correspondido a cada ju- 
gador. 


10 REM BARAJA 

20 DIM N$(10),P$(4),B$(10,4),4$(4,5) 
30 REM CREACION DE LA BARAJA 

40 FOR 'I=1 TO 10 

50 READ N$(1) 

60 NEXT 1 

70 FOR“ J=1 TO 4 

80 'READ P$(3) 

90 NEXT J 

100 FOR, 1s=1 TO 10 
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110 
120 
130 
140 
150 


FOR J=1 TO 4 
BS(1,J)=N$CI)+" "PS (3) 

NEXT J 

NEXT 1 

DATA :AS,DOS,TRES,CUATRO,CINCO,SEIS,SIETE,SO 


TA,CABALLO,REY 


160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 


DATA DE OROS,DZ COPAS,DE ESPADAS,DE BASTOS 
REM REPARTO DE LAS CARTAS 

FOR M=1 TO 5 

FOR L=1 TO 4 

I=INT(1O%RND+1) : J=INT(4FRND+1) 
IF B$(1,3)="0" THEN 200 
A$(L,M)=B$(1,3) : BS(1,3)="0" 
NEXT L 

NEXT M 

BEM IMPRESION DEL REPARTO 

FOR L=1 TO 4 

PRINT "JUGADOR NUMERO"¿L;¿":" 

FOR M=1 TO 5 

PRINT TAB(18);A$(L,4) 

NEXT M 

NEXT L 

COTO 320 

END 
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26. RUIDO DE UNA INFORMACION 


Supongamos un canal por donde circula una información. El canal transmi- 
te únicamente “0” ó “I”, A consecuencia de un ruido parásito, la emisión de 
un “0” es recibida como “1” y viceversa, siendo la probabilidad de perturbación 
de 0,1. Si deseamos comunicar una información importante, que se compone sola- 
menté de la señal “I”, es interesante proteger esta información contra el ruido 
transmitiendo por ejemplo “1111111” en lugar de “I”. 


El receptor, debido a la perturbación, podrá recibir señales que contengan 
*“]" y “0". Por ejemplo “1111111” se puede transfermar en “1111001”. La 
secuencia recibida se interpretará como “1”, si se reciben más “1” que “0”, y 
como “0”, en caso contrario. 


¿Cuál es la probabilidad de que la información se reciba correcramente? 


EMISOR RECEPTOR 


“mp” CANAL “1111001” 


Simularemos la recepción de 1000 señales perturbadas. Como la proba- 
bilidad de que el “1” se reciba como “1” es 0,9 y como “0” 0,1, obtendremos 
una señal perturbada con las probabilidades indicadas extrayendo aleatoria- 
mente de la variable de cadena A$=“1111111110” un elemento. En la línea 70 
generamos un número entero aleatorio 1<P<10, y en la 80 seleccionamos 
de A$, mediante la función MIDÉ, el elemento que ocupa el lugar P em- 
pezando por la izquierda. Repitiendo esta operación siete veces obtenemos 
una secuencia de “1” y “0”, 


“ En la línea 90 contabilizamos los unos que van saliendo y si ese número 
“es mayor o igual a 4, la señal es “buena” y se registra en la variable F. 


La probabilidad de que la señal sea recibida correctamente se obtiene 
dividiendo las señales favorables por las totales F/1000, 
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REM RUIDO DE UNA INFORMACION 
( BORRAR LA PANTALLA ) 
A$="1111111110" : F=0 
FOR I=1 TO 1000 
c=0 
FOR J=1 TO 7 
P=INT(1O0%RND)+1 
S$=MIDS(A$,P,1) 
IF S$="1" THEN C=C+1 
NEXT 3 
IF C>=4 THEN F=F+1 
NEXT 1 


FOR I=1 TO 10 : PRINT : NEXT 1 
PRINT "HAN SALIDO";F; "SEÑALES PAVORAB3LES" 


PRINT : PRINT 


PRINT "LA PROBABILIDAD DE QUE LA SEÑAL" : PRINT 


PRINT "SEA RECIBIDA CORRECTAMENTE ES";F/1000 


END 
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27. DEFORMACION DE UN MENSAJE 


Al transmitir un mensaje de una persona a otra, existe una pequeña proba- 
bilidad de alterar una palabra. Cuando la transmisión se hace a través de una 
larga cadena de personas, la probabilidad de que la última reciba el mensaje 
totalmente deformado es bastante grande. 

Se trata de hacer un programa que simule, en una cadena de veinte personas, 
da transmisión del mensaje: 


LA CARTA LLEGARA EL LUNES 


Se supone que las siguientes palabras son intercambiables dentro de cada 
grupo: (CARTA, TARTA, MARTA), (LLEGARÁ, LLOVERA, LLAMARA), 
(EL, DEL, AL) y (LUNES, MARTES, MIERCOLES). Una palabra per- 
manece invariable con probabilidad 0,94 y se cambia por una de las otras dos, 
ambas con probabilidad 0,03. La palabra LA permanece inalterable. 


Después de ejecutar el programa, he aquí lo que han entendido cada una 
de las personas de la cadena: 


MENSSJE INICIAL + 
LA CARTA LLEGARA El LUNES 


LA CARTA LLEGARÁ El LUNES 
LA CARTA LLEGARA EL LUNES 
LA TARTA LLOVERA El, LUNES 
LA TARTA LLOVERA El LUNES 
LA TARTA LLOVERA El, LUNES 
LA TARTA LLOVERA El LUNES 
LA TARTA LLOVERA AL LUNES 
LA TARTA LLAMARA AL LUNES 
LA TARTA LLAMARA AL LUNES 
La TARTA LLAMARA AL LUNES 
LA TARTA LLAMARA fl, LUNES 
La TAGRTA LLAMARA AL LUNES 
La TARTA LLAMARA DEL MARTES 
LA TARTA LLAMARA DEL MARTES 
LA TARTA LLAMARA DEL MARTES 
LA TARTA LLAMARA DEL MARTES 
LA MARTA LLAMARA DEL MARTES 
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Para diseñar el programa hemos considerado la tabla T$(J); 1=0,1,2; 
J=1,2,3,4,5; de tres filas y cinco columnas, siguiente: 


1 2 3 4 5 


LA CARTA LLEGARA EL LUNES 
LLOVERA DEL MARTES 
2 | LA MARTA LLAMARA AL MIERCOLES 


[S 
> 
3 
> 
E 
pa 
> 


El cstado del mensaje en cada etapa viene determinado por el conoci- 
miento, para cada columna, del número de fila a la que pertenece la palabra 
que está en el mensaje. Así, por ejemplo, la sucesión de números 1,2,2,0,1 de- 
termina el mensaje: 


LA MARTA LLAMARA EL MARTES 


Si establecemos la lista 1(1), 12), K3), K4), KS), (1(9), J == 1,2,3,4,5), el contenido 
de ella (0,1 6 2) nos da el estado del mensaje. 


Para pasar de una etapa a la siguiente, hacemos variar aleatoriamente 
el contenido de cada una de las variables 1(J), de acuerdo con las probabi- 
lidades preestablecidas. Para ello sumamos a 1(J) el número aleatorio N, que 
puede ser 0, 1 6 2 con probabilidades 0,94, 0,03 y 0,03, respectivamente, 
Para evitar que la suma 1(J) + N exceda de 2, tomamos el resto de la división 
por 3 (linea 230). 


10 REM DEFORMACION DE MENSAJES 
20 ( BORRAR LA PANTALLA ) 

30 DIM 1$(2,5),1(5) 

40 REM SE CARGA LA TABLA 

50 POR 1=0 TO 2 

60 FOR J=1 TO 5 

70 READ T$(I,D 

80 NEXT J 

90 NEXT 1 

100 REX $ INICIALIZAN EN 0 10S PRIMEROS INDICES 
110 FOR J=1 TO 5 : 1(J)=0 : NEXT J 

120 REX SE ESCRIBE EL MENSAJE INICIAL 

130 PRINT "MENSAJE INICIAL :" 

140 FOR J=i TO 5 : PRINT TSC(1(J),J)+" "; : NEXT 3 
150 PRINT : PRINT ; 

160 REM SE GENERAN LOS MENSAJES SUCESIVOS 


9 


EY 


FOR J=1 TO 5 
ZFRND 


IF X<0.,94 THEN N=0 : GOTO 230 

1F X<0.97 TREN N=1 ; GOTO 230 

N=2 

1) TI) ANINT((1(3)+0)/3)%3 

PRINT TS(1(I),JJ4M 

NEXT 3 

PRINT 

NEXT K 

DATA LA, CARTA, LLEGARA, EL, LUNES 
DATA LA, TARTA, LLOVERA, DEL, MARTES 
DATA LA, MARTA, LLAMARA, AL, MIERCOLES 
END 


28, RUMORES 


Deseamos estudiar la propagación de un rumor en una población de N habi- 
tantes. Supondremos que todo el que se entera del rumor lo cuenta a todas las 
personas que se encuentra, hasta que alguna de ellas ya lo conoce; desde ese 
momento dejará de contarlo, Queremos saber, tras cada unidad de tiempo, cuántas 
personas desconocen el rumor (D), cuántas lo propagan (P) y cuántas lo co- 
nocen pero no lo cuentan (C). También deseamos saber cuánto tiempo pasa antes 
de que se deje de hablar del asunto y cuánta gente no habrá oido nunca el 
Fumor. 


Podemos suponer la población dividida en tres clases, D, P y C, y expresar 
en una terna (D, P, C) el estado del sistema en cada momento; asi, (600, 320, 
80) significa que 600 personas desconocen el rumor, 320 lo propagan y 80 lo 
conocen pero no le cuentan (callan). 

Al paso de la primera categoría a la segunda lo llamaremos “contagio”, 
y al paso de ésia a la tercera “inmunización”, El contagio se produce por 
un contacto DP; el número máximo de posibles contactos de este tipo es 
DxP y, para un tiempo T pequeño, la disminución en D es proporcional a D+P 
con factor de proporcionalidad F (al que llamaremos “factor de contagio”); 
tras T los desconocedores disminuyen: 


D=D-—Dx*P*F 
y, si no existiera inmunización los propagadores pasarían a ser: 
P=P+DxP*F 
La inmunización se produce: 
Pa(P-1) 
a) Por contacto entre propagadores. Hay ——¿—— contactos de este 
2 
tipo. 
b) Por contacto entre propagador y ex-propagador. Hay P=*C contactos 
de éstos. 


Sumando ambos tipos de inmunización resultará: 


PxC+ PHE=D 


Durante el tiempo T, el número de propagadores P aumentará lo mismo 
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que disminuya D, D+P+F, y disminuirá en Fs(P+C 4-Px(P— 1)/2). El cambio 
de estado viene dado por la correspondencia: 


Demo D— DPF 
Poo Po DPF — Fs(PC 4 PxP — 1/2) 
COC C4+FsPrC+Px(P— 1)/2) 


10 REM RUMOR 
20 INPUT "POBLACION";¿N 
30 INPUT "PACTOR DE CONTACIO";¿F 
40 7T=0 ; P=1 ; D=N-1 2 C=0 
50 ( BORRAR LA PANTALLA ) 
60 PRINT "TIEMPO DESCONOCEN  'PROPAGAN CALLAN” 
70 PRINT TAB(1);T;TAB(10);INT(D)¿TAB(22)51INT(P);TAB 
(34)¿18T7(C) 
80 CO=D*P*F : REM CONTAGIO 
90 I=((PR*C)+(P(P-1)/2))*F : REM INMUNIZACION 
100 T=T+1 : D=D-C0 ; P=P+C0-1 : .C=C4+1 
110 PRINT TAB(1);T5TABC(J1O);INTCD); ¿1A5(22) 3 ¡INT(P)5TA 
B(34)¿1INT(C) 
120 1F P>=]1 THEN 80 
130 END 


Los resultados que nos proporcione el prográma serán absurdos si F es 
grande. Cuanto mayor es ura población, menor és la fracción de ésta a la 
que cada individuo tiene acceso directo y, consecuentemente, menor será el 
factor de contagio, F. Recomendamos tomar F aproximadamente igual al in- 
verso de la población, o más pequeño, nunca mayor. 


Teniendo en cuenta lo anterior, hemos ejecutado dos veces el programa, 
obteniendo: 


POBLACION 10090 
FACTOR DE CONTAGIO? 1-23 


TIEMPG DESCONOCE? PROPAGAN CÉLLAN 
2 asco i E 
1 1 e 
2 3 e 
3 7 e 
+ 15 pul 
5 21 a 
6 Es E 
? 12€ a 
El 251 1 
S 492 3 
18 s48 16 
11 1759 63 
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POBLACION? 14009 
FACTOR DE CONTAGIO? 1E-B4 


TIEWNPO DESCONOCEN PROPAGAN CALLAN 

12 8738 3e32 228 

13 9694 4597 758 

19 2553 5303 21386 
15 i2a2 4121 4673 
15 TAS 18245 7952 
17 se 323 53993 
13 551 sa S33g9a 
132 598 s 29349 
ze $48 a 3851 


POBLECIOM? 1099899 
FACTOR DE CONTAGIO? 1E-8S 


TIEPPO O DESCONOCEN PROPAGAN SALLAS 
a sacso 1 a 
A 292998 1 a 
2 99996 3 a 
2 399s2 7 a 
4 yasea 15 a 
s eses 31 a 
5 3993€ 65 a 
7 28272 127 a 
8 25749 255 2 
a 25483 s18 a 
10 2esez 1016 1 
LE S797E 2616 E 
12 asaga 3ste 27 
13 se186 7708 107 
13 esane 19504 412 
15 PErAi 25734 1523 
16 534621 4er Sar. 
17 22007 SeBz1 15068 
12 15257 47193 37548 
12 2956 2se37 68405 
20 5999 7278 25624 
21 5336 1137 33285 
22 sase 135 $372 
22 saes 13 54499 
ES 5384 1 35813 
25 5484 - 8 29818 


Para 100.000 habitantes, haciendo F=0,000001 resulta que el porcentaje 
de la población que nanca habrá oído el rumor pasa del 5% al 12%. 
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29. CALCULO DE r (6.29) 


Se irata de calcular un valor aproximado de , lanzando dardos sobre la 
diana representada en la figura. 


0 1 
La diana es un cuadrado de lado 1, en el que se ha inscrito un cuadrante 
de círculo. 


Supongamos que los dardos se reparten uniformemente; entonces la pro- 
babilidad de que un' dardo caiga en el cuadrante de circulo es: 


Area del cuadrado 1 4 


Supongamos, ahora, que lanzamos N dardos sobre el cuadrado, y sea 
M el número de los que caen en el cuadrante. La frecuencia relativa de 
caída en el cuadrante M/N, será aproximadamente igual a 1/4. Por tanto: 


4M 


AS 


9% 


Si el número N es suficientemente grande, cabe esperar que 4M/N “sea 


una buena aproximación de x. 


En el programa, las coordenadas de cada dardo se genefan aleatoriamente 


en la línea 60, y la línea 70 cuenta el número de aciertos en el cuadrante, 


10 REM CALCULO DE PI 
20 ( BORRAR LA PANTALLA ) 

30 M=0 

40 INPUT "CUANTOS DARDOS LANZAS";N 

50 FOR I=1 TO N 

60 K=RND : Y=RND 

70 IF XT2+Y72<1 THEN M=M+1 

80 NEXT 1 

90 (BORRAR LA PANTALLA ) 

100 PRINT "SI LANZAS";N;"DARDOS OBTENEMOS" 
110 PRINT 

120 PRINT "UN VALOR APROXIMADO DE Pl=";4*M/R 
130 END 
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30. LA AGUJA DE BUFFON 


Si dibujamos en un papel una serie de líneas paralelas distantes entre sí 
d unidades y dejamos ener sobre dichas líneas una aguja de la misma longitud d, 
entonces la probabilidad teórica de que la aguja corte a una de las paralelas 
es 2fx. Simula varias series de lanzamientos y calcula valores aproximados de K. 


! B 
1 

le 

3 LL 

>] 


Fig.1 


En la figura 1 hemos dibujado dos paralelas; la distancia entre ellas y la 
longitud de la aguja las hemos tomado, por comodidad, iguales a 1. 


La posición de la aguja queda determinada por el ángulo A, comprendido 
entre D y 180 grados, y por la distancia BD=H, entre O y 1; si conocemos A 
y H, podemos calcular BC. En el triángulo rectángulo BDC, BC=H/SEN A. 
Si BC<1, la aguja corta una paralela; en caso contrario, está contenida en 
la franja (fig. 2). 


B 
1 

(a 
q E mb 
C D 


Fig 2. 


Si efectuamos N tiradas y calculamos los casos favorables, el cociente F/N 
es un valor aproximado de la probabilidad de que la aguja corte una línea. 


Como Esa ent N 
e Onces np 
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Es razonable pensar que cuanto mayor seá N, más precisos serán los 
resultados. 


Simularemos el proceso diez veces, comenzando con N=5 tiradas y dupli- 
cando en sucesivas simulaciones el número de tiradas de la anterior. 


Los resultados los presentamos en forma de tabla: 


TIRADAS PROB. V. APROX. DE zx 
5 0.6 3,3425 
10 = LE 


La tabla formada por las dos primeras columnas la guardamos en la 
variable T(LJ), (1=1,2,...,10) y (J=1,2); los valores de la tercera columna son 
los inversos de los de la segunda multiplicados por dos. 


Para cada simulación generamos dos números aleatorios A y H, y cal- 
culamos BC, teniendo la precaución de pasar el ángulo a radianes. En la 
línea 70 se acumulan los casos favorables en la variable F y en la línea 90 se 
va cargando la variable T(LJ). 


Como el lector comprobará, este método no da buenas aproximaciones del 
número m. 


10 REM AGUJA DE BUFFON 
20 DIM T(10,2) : N=5 : K=2 ; F=0 

30 FOR 1=1 To 10 

40 FOR J=1 TON > 

50 H=RND : 'A=180*RND 

60 BC=H/S1N(3.14159265*A/180) 

70, IF BC<1 THEN F=F+1 

80 NEXT 3 

90 T(1,1)=N : T(1,2)=F/N 

100 N=N*X : F=0 

110 NEXT 1 

120 ( BORRAR LA PANTALLA ) 

130 PRINT TAB(4);"TIRADAS"¿TAB(14);"PROB."¿TAB 
(27) ¿"V.APR.DE PI" 

140 PRINT 

150 FOR I=1 To 10 

160 PRINT TAB(5)¿T(1,1)¡TAB(13)¡T(1,2);TAB(26) 
32/1(1,2) 

170 PRINT 

180 NEXT 1 

190 END 
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31. CAZA DE BARCOS (6.28) 


Cada vez que un submarino avista un barco enemigo sólo tiene tiempo de 
lanzar cuatro torpedos antes de ser localizado y perseguido. Cada torpedo tiene 
1/3 de probabilidad de hundir el barco. Si un torpedo hunde un barco, en la 
pantalla aparecerá B HUNDIDO y mo se lanzan más torpedos contra ese barco. 
Si no le da, aparecerá B NO y seguirá la serie de cuatro torpedos. Simula unos 
días de guerra en los que el submarino se encuentra diez barcos enemigos en total. 
Se sugiere que los resultados con cada barco aparezcan en una sola línea de 
pantalla. 


El programa consta de los siguientes bloques: 
1? Presentación e instrucciones. 
Subrutina 100.Líneas 100-150 
2.2 Dibujo de la ventana del periscopio. 
Subrutina 200.Líneas 200-260 


Para dibujar la ventana se consideran dos variables de cadena: 


Se imprimen en líneas sucesivas, primero Al$, después 15 veces A29 y, 
finalmente, AI$. 


3.2 Batalla. 
Subrutina 300.Líneas 300-680 


En esta parte del programa necesitamos controlar con frecuencia la po- 
sición del cursor, lo que hacemos Hevándolo al origen y desde allí colocándolo 
en la posición adecuada. También aparecen tres veces (lineas 320, 390 y 620) 
ciclos FOR-NEXT cuyo único objeto es retardar, décimas o segundos, la 
aparición de las imágenes que los siguen, para que la “película” no sea de- 
masiado rápida. 


Dentro del ciclo FOR-NEXT (líneas 300-540) se generan dos números 
aleatorios enteros X e Y, de modo que el barco dibujado en las líneas 350 y 
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360 se sitúe dentro de la ventana. El ciclo 370-430 produce los disparos: si el 
número PR es cero, el barco ha sido tocado; un asterisco u otra señal simula 
el impacto y la subrutina 600 “borra” el barco del periscopio. A la derecha 
de la ventana se imprime B HUNDIDO, Si ninguno de los cuatro disparos 
es cero, la subrutina 600 borra el barco, se imprime B NO y un nuevo barco 
aparece aleatoriamente en el campo de visión del periscopio. 


10 REM CAZA DE BARCOS 

20 (BORRAR LA PANTALLA) 

30 GOSUB 100 : REM INSTRUCCIONES 

40 GOSUB 200 : REM DIBUJO VENTANA PERISCOPJO 
50 GOSUB 300 : REM CAZA DE BARCOS 

$0 END 

100 PRINT “EN LA VENTANA DFL PERISCOPIO APARECERA UN BARCO.” 
110 PRINT : PRINT “PARA CADA BARCO DISPONES DE CUATRO TORPEDOS” 
120 PRINT : PRINT “EN TOTAL APARECERAN DIEZ BARCOS.” 
130 PRINT : PRINT “SI QUIERES COMENZAR PULSA UNA TECLA.” 
140 GET Af :1F Ag="" THEN 140 

150 RETURN 

200 (BORRAR LA PANTALLA) 

210 AL8 ==" MINIADN 

220 = n 

230 PRÍNT TAB(7):A1$ 

240 FOR I=1 TO 15 : PRINT TAB(7):A2$ : NEXT 1 

250 PRINT TABDA1E 

260 RETURN 

300 FOR I=1 TO 10 

310 (CURSOR AL ORIGEN) 

320 FOR J=1 TO 500 : NEXT J 

330 X=INTU2RND+9) : Y=INTILARND+1) 

340 FOR J=1 TO Y : PRINT : NEXT 3 

350 PRINT TABO9* Jl" 

360 PRINT TABOOS 

370 FOR J==1 TO 4 

380 (CURSOR AL ORIGEN) 

390 FOR K=I TO 1009 : NEXT K 

400 PRINT “TJ 

410 PR=INT(3:RND) , 

420 1F PR=:0 THEN 480 

430 NEXT J 

440 GOSUB 600 

450 FOR J=1 TO 1 : PRINT : NEXT J 

460 PRINT TAB(29"B"INO" 

470 GOTO 540 

480 (CURSOR AL ORIGEN) 

490 FOR J=1 TO Y+1 : PRINT : NEXT J 

500 PRINT TAB(X+2).%" 

510 GOSUB 600 

32% FOR J=1 TO 1 : PRINT : NEXT J 

530 PRINT TAB(28):“B"I:HUNDIDO” 

540 NEXT 1 

550 RETURN 

600 (CURSOR AL ORIGEN) 

$10 FOR: J=1 TO Y : PRINT : NEXT 3 
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620 FOR J==1 TO 1000 : NEXT J 
630 PRINT TAB(X)*" > 
$40 PRINT TAB(X):" E 
650 (CURSOR AL ORIGEN) 

660 PRINT “ * 

670 (CURSOR AL ORIGEN) 

$80 RETURN 


102 


32. TRENES (6.56) 


Dos trenes Tl y T2 tienen parte del recorrido común (L3) y parte distinto 
(Lt y L2), y circulan en un circuito cerrado en la misma dirección. Van con 
velotidad constante V1 y V2, y tienen una estación er la mitad de su trayecto 
común (E3) y otra en la mitad de su trayecto particular (El y E2). Salen a 
las 8 de la mañana y se pasan el día circulando, con paradas de un minuto en las 
estaciones. Como es natural no se pueden adelantar en el trayecto común, aunque 
sí pueden coincidir en E3. Vamos a hacer un programa que nos dé las horas 
a las que pasan los trenes por las agujas A y B. En cada vuelta el primero 
que pasa por A ha de ser el mismo que el primero que pase por B: si no, hay 
descarrilamiento. Cuando haya descarrilamiento sacaremos un mensaje en la 
pantalla señalando la hara del choque y terminaremos el programa. 


A 

E! E3 

L1 13 
B 


Dando valores L!l=60  V1=100 
L2=80  V2=70 
L3=100 
aparece en la pantalla: 
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AGUJA A AGUJA B 


Ti 3 18 
TL 834 
TI 918 
TI 956 
T2 100 
T1 10 56 
T2 11 10 
TL 34 
CHOQUE 
A LAS 12 29 


Interesa hallar el periodo de cada tren, el tiempo que tarda cada uno en 
dar una vuelta completa, les llamaremos P1 y P2. 


T(D) es la hora a la que el tren 1 pasa por la aguja A 
T(2) es la hora a la que el tren 2 pasa por la aguja Á 
T(3) es la hora a la que el tren 1 pasa por la aguja B 
T(4) es la hora a la que el tren 2 pasa por la aguja B 


El problema tiene dos aspectos: escribir correctamente los horarios y 
analizar cuándo se produce el choque. La escritura de los horarios tiene cierta 
dificultad. Hay que escribir cada vez el menor valor de T(I), pero puede co- 
rresponder al tren 1 o al 2, lo cual hay que recoger de alguna manera, y a la 
aguja A o a la B, lo que también ha de traducirse en la pantalla. Adjuntamos 
el organigrama de escritura de los horarios. 


Hemos utilizado las siguientes fórmulas: 
T=(VIx(T(D) -P1) -V2x*(T(2) - P2)/(V1-—V2) 


que da la hora del choque, y que se deduce de igualar las distancias reco- 
rridas desde el último paso por la aguja A: 


(--UD+PDeV1=(T—T(2)+P2)+V2 
La segunda es para truncar a minutos la parte decimal del tiempo: 
INT((T —INT(T)+60) 


Como detalle citaremos que si, en vez de truncar, se redondea, puede surgir 
un error, pues a las 12 horas 59,67 minutos se le asigna el valor 12 horas 
60 minutos, que habría que corregir. 
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MIN=T(1) 
K=1 


Desde l=2 2 4 


IMPRIMIR 
TABIN); Ag; MIN 
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10 

20 

30 

40 

50 

60 

70 

80 

90 

100 
110 
120 
"AG 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
T)) 
340 
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REM TRENES 
( BORRAR LA PANTALLA ) 

PRINT "DAR LAS 3 LONGITUDES EN KM." 

INPUT 11,L2,L3 

INPUT "VELOCIDADES EN KM/E”;V1,V2 
DIm T(4) 

Pl=(11+1L3)/V1+2/60 : P2=(12+13)/V2+2/60 
1(1)=8+11/V1/2 

T(2)=8+12/V2/2 

T(3)=T(1)+L3/V1+1/60 

T(4)=7(2)+13/V2+1/60 ea 
PRINT : PRINT ; PRINT TAB(1);"AGUJA AU¡TAB(13); 
UJA 3" 

REM ESCRITURA DE LOS HORARIOS 

MIN=T(1) : K=1 

FOR 1=2 TO 4 

IF T(1)<MIN TREN MIN=T(1) : K=I 

NEXT 1 

AS="T1" : 1F K/2=INT(K/2) THEN A$="T2” 

E=1 : 1F K>2 THEN N=w13 

PRINT TAB(N)¡AS;INT(MIN);INT((MIN-INT(MIN))*60) 
1F K/2=1NT(K/2) THEN T(K)=T(X)+P2 : GOTO 230 
T(X)=TI(K)+P1 

REM COMPROBACION DEL CHOQUE 

TF 1(3)-Pl=T(4)-P2 THEN T=T(3)-P1 : GOTO 320 

TF T(1)<T(3) OR T(2)<T (4) THEN 130 

TF T(1)-Pl=T(2)-P2 THEN T=T(1)-P1 : GOTO 320 

IF K=1 AND 7T(4)>T(3) THEN 300 

TF K=2 AND T(4)<I(3) THEN 300 

coto 130 

T=(Vi*(T(1)-P1)-Y2*(1(2)-P2))/(V1-V2) 

IF VI*(1-T(1)+P1)>13/2 THEN T=1+1/60 

PRINT : PRINT TAB(8);"CROQUE" 

PRINT : PRINT TAB(4);"4 LAS"¡INT(T)¿INT((T-1NT( 
60) 

END 


33. GENERADOR DE FRASES 


Deseamos programar el ordenador de manera que sea capaz de generar una 
frase al azar, o dos frases encadenadas. 


Aunque se recomienda emplear siempre los recursos de la programación 
estructurada, para este ejercicio recomendamos especificamente no hacerlo, y 
usar como guía el esquema que figura más abajo. 


Para simplificar, consideramos freses en las que aparezcan sólo los elementos 
siguientes: 


Sujeto. 

Predicado, ampliación del concepto de verbo. 
Complemento Circunstancial de Tiempo. 
Complemento Circunstancial de Modo. 

Nexo entre una frase y la siguiente, caso de haber dos. 
La partícula “No”, 


7% Fin 
04 


03 ! 0%) 


cc gi 


025 €. C. Modo 
es 03 
63 (0) 


Predicado 


E Sujeto 


hs 5 CC. Tiempo 


0,4 


Nexo 7 
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El C. C. Tiempo podrá aparecer tras el Predicado sélo si no ha salido 
antes en la misma frase. 


Llamemos nodos a los puntos de los que parten, o a los que llegan, flechas. 
En cada nodo del diagrama, el ordenador «clige su camino» al azar, gene- 
rando números aleatorios. Th puedes crear iu propio Generador añadiendo 
otros elementos de la frase, aquí no figuran todos, y alterando-las probabili- 
dades asociadas a los caminos de acuerdo con tus gustos. 


Los caminos que salen del Predicado tienen asociados dos números, y lo 
mismo los que salen del C. C. de Modo; en ambos casos, el número sin parénte- 
sis es la probabilidad del camino, si en esa frase no aparece el C. C. de Tiempo 
antes del Predicado; y el que lleva paréntesis es la probabilidad del camino, 
si el C. C, de Tiempo ya apareció. 


Para los casos en que de un nodo salen más de dos caminos, Predicado 
y €. C. de Modo, hemos habilitado dos tablas, P y M, que tienen dos 
filas y tantas columnas como caminos salen del nodo en cuestión. 


0,3 055 08 1 _ (04 07 a 
E a 07 07 y a =(2 06 1) 


En estas tablas aparece, en la primera fila, la probabilidad del primer ca- 
mino, la suma de los dos primeros, de los tres primeros, etc.; y lo mismo para 
la segunda fila. Así, si un número al azar es superior al primer elemento de la 
fila, el programa no sigue el primer camino, pero sigue el segundo camino, si el 
némero es inferior al segundo elemento de la fila, suma de las probabilidades 
de los dos primeros caminos. 


Cuántos y cuáles son los Sujetos, Predicados, etc, es algo que podemos 
decirle al ordenador mediante jastrucciones DATA y READ o INPUT; en 
el listado que figura a continuación hemos optado por la primera posibilidad, 
leyéndose estos elementos en listas TÍ, C. C. de Tiempo, S$, Sujetos, PS, 
Predicados, M$, C, C. de Modo y N$, Nexos. 


Empleamos las variables de control F, SP, TP, PP y L. La variable F 
indica si estamos en la frase primera o en la segunda (en este caso, a partir 
del nodo Predicado, aunque el número aleatorio señale el camino que lleva al 
Nexo, se irá al Final); SP, TP y PP indican el Sujeto, Tiempo y Predicado 
empleados en la primera frase, para evitar su repetición en la segunda, caso de 
haber segunda. Por último, L vale 1 si no apareció Tiempo antes del Predi- 
cado, y 2 si apareció, con se ayuda tomamos probabilidades (elegimos fila) 
empleando las tablas P y M. 
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10 

20 

30 

40 

50 

60 

70 

80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
100 
101 
102 
103 


REM GENERADOR DE FRASES 
DIM P(2,4),M(2,3) 
FOR 1=1 TO 2 
FOR J=1 TO 4 : READ P(1,3) : NEXT J 
NEXT 1 
FOR 1=1 TO 2 
FOR J=1 TO 3 : READ M(1,3) : NEXT J 
NEXT 1 
READ T : DIM T$(T) 

FOR 1=1 TO T : READ T$(1) : NEXT 1 
READ S : DIM s$(s) 

FOR I=1 TO $ ; READ S$(1) : NEXT 1 
READ P : DIM PS$(P) 

FOR I=1 TO P : READ P$(1) : NEXT 1 
READ M : DIM M$(M) 

FOR I=1 TO M : READ M$(1) : NEXT 1 
READ N : DIM N$(N) 

FOR I=1 TO N : READ N$(1) ; NEXT 1 
F=0 ; SP=0 : TP=0 : PP=0 ; Ls=l 

( BORRAR LA PANTALLA ) 

F=F+]1 : K=RND 

IF X>,4 THEN 250 

RKSINT(T*RND+1) : 1F RK=TP TEEN 230 
PRINT T$(X) : TP=K : L=2 
K=INT(S*RND+1) : 1F K=SP THEN 250 
PRINT S$(X) : SP=k 

TF RND<.3 THEN PRINT "NO" 
K=INT(P*RED+1) : 1F K=PP THEN 280 
PRINT P$(X) : PP=K 

K=RND : IF K<P(L,1) THEN 400 

TF K<P(L,2) THEN PRINT MS(INT(M*RND)+1) 
IF K<P(L1,3) TREN PRINT TSCUINT(T*RND)+1) 
IF F=2 THEN 400 

PRINT NSCINT(N*RND)+1) : GOTO 210 
ZFRND : 1F K<M(L,1) THEN 400 

IF K<M(L,2) TREN 320 

coro 330 

IF RND<.6 TEEN 400 

GOTO 330 

PRINT "SICO HABLANDO (5/N)?" 

GET H$ : IF HS<>"S" AND H$<>"N" THER 410 
IF R$="S" THEN 190 


coro 350 
GOTO 380 


O DATA .3,.55,+.8,1,.4,.7,.7,1 
O DATA ,4,.7,1,.6,.6,1 

O DATA 3, LOS JUEVES, POR LA NOCHE, CUANDO LLUEVE 
O DATA 3, CARLOS, MI TIA PACA, TU VECINO 
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1040 DATA 4, RONCA, SALTA, DA VOLTERETAS, COME PERAS 
1050 DATA 5, ALOCADAMENTE, SIN PARAR, A LO TONTO, A TO 
DA PASTILLA, EN BAÑADOR 

1060 DATA 3, ADEMAS, AUNQUE, SIN EMBARGO 

2000 END 
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3. TEXTOS 


34, SUPRESION DE ESPACIOS (6.51) 


Haz un programa que suprima todos los espacios en blanco de una cadena. 


El código ASCII, ya usado en problemas anteriores, asocia a todo carácter 
un número natural. Al espacio en blanco le corresponde el código 32. 


Una función ligada a este código es la función ASC, que aplicada a un 
carácter nos da su código. Por ejemplo, si Bf es el espacio vacío, entonces 
ASC(B$)=32. 


Con un ciclo FOR-NEXT, líneas 60-110, y la función MID$ seleccionamos 
cada carácter Bf de la cadena. En la línea 80 obtenemos su código; si este 
código es 32, tenemos un espacio en blanco y pasamos a estudiar el siguiente 
carácter. En caso contrario imprimimos el carácter, línea 100. 

El punto y coma (;) con el que acabamos dicha línea nos asegura que 
todos los carácteres se imprimen unos a continuación de otros. 


10 REM SUPRESION ESPACIOS EN BLANCO 
20 ( BORRAR LA PANTALLA ) 

30 INPUT "ESCRIBE LA CADENA";¿CS 
40 ( BORRAR LA PANTALLA ) - 
50 L=LEN(CS$) 

60 FOR 1=1 TO L 

70 B$=MIDS$(0$,1,1) 

380 B=ASC(B8) 

90 1F 3-32 THEN 110 

100 PRINT B$; 

110 NEXT 1 

120 END 
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35, VOCALES QUE HAY EN UNA FRASE 


Haz un programa que, tras pedir una frase, cuente el número de vocales que 
aparecen en ella. Para lo cual puedes servirte de la variable Vf donde pones 
las vocales. 


En el programa que vamos a considerar, tenemos tres variables. Dos de 
cadena: Af, donde introducimos la frase, y VÍ, que tiene las cinco vocales. 
La tercera, F(J), corresponde a una lista que nos lleva la cuenta de cada vocal 
que aparece en la frase. 


Cada carácter de la frase se compara sucesivamente con cada una de las 
vocales de Vf. Tan pronto haya una coincidencia, se cuenta ésta y se pasa a 
comparar el siguiente carácter de la frase. 


Presentación en pantalla: 


INTRODUCE LA FRASE 
£ COME AL CHICO 


vacaL PRECUERCIA 
ú E 
dE = 
Y: Fi 
Q 2 
Ú E 


10 REM VOCALES QUE HAY EN UNA FRASE 
20 DIM F(5) 

30 FOR 1=1 TO 5 

40 F(1)=0 

50 NEXT 1 

60 PRINT "INTRODUCE LA FRASE" 

70 INPUT AS 

80 V$="ABIOU" 

90 FOR 1=1 TO LEN(AS) 

109 FOR J=1 TO 5 
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110 
J=6 
120 
130 
140 
150 
160 
170 
180 
190 


IF MIDSÍ(AS,1,1)=MIDS(VS,3,1) TEEN E(J)=F(3)+1 


NEXT J 
NEXT 1 
PRINT "VOCAL", "FRECUENCIA" 
RIN MK, A  —_KÁ 


FOR J=1 TO 5 

PRINT TAB(2);MID$(V$,3,1),5P0(3)5F (3) 
NEXT J 

END 
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36. FRECUENCIA DE UN CARACTER (6.49) 


Necesitamos un programa que pida una frase. Luego ha de preguntar qué 
carácter deseas buscar; examinará la cadena y cada vez que encuentre el carácter 
señalorá en qué posición está. Al final sacará el número total de veces que lo 
ha encontrado. 


La frase se introduce en la variable ASÍ. El carácter que queremos buscar 
en la variable B$. 


Realizamos una comparación de cada carácter de la frase, mediante la 
función MIDS, con el carácter deseado. Si es cierta la comparación, se aumenta 
el contador en uno y se escribe en qué posición está situado. Si no es 
cierta la comparación, se pasa al siguiente carácter de la frase y asi sucesiva- 
mente hasta que se acaben los caracteres. 


Presentación en pantalla: 


IMTRODUCE LA FRASE 
2 108 SMIMALES SON SERES QUE A VECES PARECEN JINTELIGENTES 


QUE CARACTER DESEAS BUSCAR 


EN LA POSICION 11 
EN LA POSICION 139 
EN LA POSICION 21 
A EN LA PASICION 26 
A EN Le POSICION 31 
POSICION 53 
POSICION = 
POSI 


POSIician S4 


O LE VECES GUE APARECIO EL CARACTER E ES 11 


REM YRECUENCIA DE UN CARACTER EN UNA FRASE 


20 PRINT "INTRODUCE LA FRASE" 

30 INPUT AS 

40 A=0 

50 PRINT 

60 PRINT “QUE CARACTER DESEAS BUSCAR" 
70 IRPUT B$ 

80 FOR I=1 TO LEN(AS) 

90 1F MIDS(A$,1,1)<>BS THEN 120 
100 A=A+1 

110 PRINT "ESTA EN LA POSICION";1I 
120 NEXT 1 

130 PRINT 


140 PRINT "El NUMERO DE VECES QUE APARECIO EL Cá 


RACTER "3B95" ES"¡A 
150 END 
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37. FLECHAZO AL ORDENADOR (6.27) 


Flechazo al ordenador: la máquina te pregunta el nombre. A continuación 
lo imprime 15 veces, una en cada línea, situándolo aleatoriamente a la izquierda, 
derecha o centro de la pantalla, y añadiéndole signos de admiración (1), tam- 
bién en número aleatorio, comprendidos entre 1 y 5. (Es una combinación de 
RND y TAB, y si quieres que el nombre no se salga de una línea para escri 
birse en la siguiente, has de tener en cuenta su longitud.) 


15 COLUMNAS 


27 COLUMNAS 


Suponemos que la pantalla del monitor tiene 40 columnas numeradas 
del O al 39. La posición de la izquierda comienza en la columna 0, la 
central en la 12 y la posición derecha en la columna 24. En el caso de que tu 
pantalla tenga dimensiones diferentes, se han de modificar las líneas 60, 90, 
100, 120 y 180. ] 


Generamos dos números aleatorios X e Y. El primero toma los valores 1, 
26 3 y asigna la posición izquierda, central o derecha respectivamente a la 
secuencia de signos de admiración y nombre. El segundo indica el número de 
dichos signos que preceden y siguen al nombre. 


Si L es la longitud del nombre N$, la longitud de toda la cadena es 
2: Y+L, 


La posición límite del cursor en el último signo de admiración debe ser la 
38, para que pase a ocupar a continuación la 39; entonces la instrucción 
PRINT de la fínea 160 sitúa el cursor en la línea siguiente. Por el contrario, 
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si imprimimos en la posición 39, el cursor pasa automáticamente a la línea 
siguiente y, debido a la instrucción PRINT, la próxima cadena se imprime 
dos filas más abajo. 


Cuando el nombre tiene más de 29 caracteres, la impresión completa puede 
invadir la línea siguiente. Para evitar esto la linea 60 rechaza los nombres con 
más de esos caracteres. 


Si X=2 y 2*Y +L es mayor que 27, el cursor pasa a la línea siguiente; 
para evitarlo debemos desplazar la cadena a la izquierda tantos lugares como 
exceda a 27. 


En el caso de que X=3 y 2+Y+-L sea mayor que 15, por la misma razón, 
desplazamos la cadena a la izquierda (24 Y + L) 15 hugares. 


10 REM FLECHAZO AL ORDENADOR 

20 ( BORRAR LA PANTALLA ) 

30 INPUT "NOMBRE";N$ 

40 ( BORRAR LA PANTALLA ) 

50 L=LEN(N$) 

60 IF L>29 THEN PRINT "NOMBRE DEMASIADO LARGO, CAM 
BIA DE ENAMORADO/A" ; GOTO 20 

70 FOR I=1 TO 15 

80 X=INT(3*RND)+1 : Y=INT(S*RND)+1 

90 IF K=2 AND 2%*Y+L>27 THEN A=27 : GOTO 170 
100 1F X=3 AND 2*Y+L>15 TREN A=15 : GOTO 170 
110' POR J=1 TO Y 

120 PRINT TAB((X-1)*12+(J-1)):"1"; 

130 NEXT J 

140 PRINT N$; 

150 FOR J=1 TO Y : PRINZ "PI"; : NEXT J 

160 PRINT : GOTO 210 

170 FOR J=1 TO Y 

180 PRINT TAB((X-1)%12+(3-1)-(2*Y+L-A))3"1"3 
190 NEXT J 

200 GOTO 140 

210 NEXT 1 

220 END 
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38, FRECUENCIA DE UNA PALABRA 


Queremos contar cuántas veces aparece una palabra en una frase, Si, por 
ejemplo, buscamos la palabra “sol”, es obvio que las palabras “sola”, o “solar”, 
no nos sirven: la palabra “sol” debe tener a izquierda y derecha un espacio en 
blanco, o un signo de puntuación. 


Planteamos el programa utilizando el código ASCIHL En este código cada 
carácter (números, letras, signos de puntuación, etc.) tiene asociado un número. 
Concretamente, a las letras, les corresponden números enteros consecutivos des- 
de 65 a 90. 


CARACTER:A BCD cccccccccco co. YZz 
CODIGO: 65 66 67 68 ..0ooooo...... 89 90 


Una función asociada a este código es la función ASC que aplicada a 
un carácter nos da su código; ASC(D)= 68, 


Si mediante la función MID$ seleccionamos un carácter de una cadena, 
y a ese carácter aplicamos la función ASC, obtendremos un número compren- 
dido entre 65 y 90, ambos inclusive, si es una letra. Esta técnica nos permitirá 
aislar las palabras. 


En la variable F% guardamos la frase, en P$ la palabra cuya frecuencia 
se busca y en N el número de veces que aparece dicha palabra. 


Queremos contar, por ejemplo, cuántas veces aparece la palabra “dos” en 
la frase: 


“Dos y dos son cuatro” 


Esta cadena tiene una longitud de 21 caracteres incluyendo los espacios 
vacíos y el punto final. 

Establecemos una cadena de caracteres AS, que inicialmente está vacía. 
En ella vamos depositando las letras de la frase hasta llegar a un carácter 
que no sea letra. En ese momento en A$ tenemos una palabra, formada 
exclusivamente por letras, que comparamos con la palabra pedida P$. Si es 
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la misma la contabilizamos en N y vaciamos AS, y si no lo es, solamente 
vaciamos AÉ En ambos casos continuamos buscando la siguiente palabra, 
hasta finalizar la frase, 


El análisis de la última palabra exige algunos comentarios. Si, en nuestro 
ejemplo, acabamos la cadena en la última letra, la O, al Hegar a ella, como 
su código cumple las condiciones impuestas, pasa a la linea 150 y de aquí, 
por haberse acabado la cadena, a 160, 170 ó 180. No ocurre nada si la última 
palabra no es la buscada. Si lo es, no es contabilizada. Para subsanar este 
posible error hemos de acabar la cadena en un signo de puntuación. 


10 REM FRECUENCIA DE UNA PALABRA 

20 ( BORRAR LA PANTALLA ) 

30 INPUT "ESCRIBE LA FRASE"¿ES 

40 PRINT 

50 INPUT "PALABRA SELECCIONADA";P$ 

60 ( BORRAR LA PANTALLA ) 

70 L=LEN(ES) 

80 A$="" ; N=0 

90 FOR I=1 TO L 

100 C$=MID$(F$,1,1) 

110 c=A8sCc(c$) 

120 IF C>=65 AND C<=90 THEN AS=AS+C$ : GOTO 150 
130 IF AS=P$ THEN N=N+1 

140 aAg="" 

150 NEXT 1 

160 IF N=0 THEN PRINT P$;" NO APARECE EN LA FRA 
SE" ; GOTO 190 

170 IF N=1 THEN PRINT PS;" APARECE UNA VEZ" ; 6 
oOTO 190 

180 PRINT P$;" APARECE"¿N¿'"VECES" 

190 END 


39. CONJUGACIÓN 


Haz un programa que te pida el infinitivo de un verbo de la primera con- 
jugación, y a continuación escriba su presente y su pretérito imperfecto de 
subjuntivo. 


Yo ame, tú ames, Él ame, ..; yo amara, tú amaras, él amara, .. ¡Repasar 
la gramática nunca viene mal! 

Para diseñar el programa hemos considerado la tabla CAL); 1=0, 1 
2... 6; J==1,2, 3; de 7 filas y 3 columnas, siguiente: 


PRONOMBRES PRESENTE DESUB. PRET. IMPERF. DE SUB]. 


YO E ARA 

TU ES ARAS 

EL E ARA 
NOSOTROS EMOS ARAMOS 
VOSOTROS ElIS ARAIS 
ELLOS EN ARAN 


En la primera columna están los pronombres personales, en la segunda las 
terminaciones del presente de subjuntivo y en la tercera las del pretérito imper- 
fecto de subjuntivo (de las dos formas posibles de este tiempo hemos puesto 
sólo la primera). 


Las líneas 50-90 cargan la tabla por columnas, utilizando las instrucciones 
DATA del final del programa. En B$(0,2) y B$K(0,3) se guardan las cadenas 
de caracteres “PRESENTE DE SUB” y “PRET, IMPERF. DE SUBJ.”, que 
más tarde se imprimirán encabezando el tiempo correspondiente. Ñ 


Con las líneas 110-130 el ordenador pregunta el infinitivo del verbo, V$, 
y halla su radical, R$, utilizando la función LEFT$. 


En las líneas 150-230 se construyen e imprimen los tiempos del verbo, 
añadiendo al radical la terminación y anteponiendo el pronombre personal 
correspondiente. 
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10 REM CONJUGACION DE UN VERBO 
20 ( BORRAR LA PANTALLA ) 

30 DIM C$(6,3) 

40 REM SE CARCA LA TABLA 

50 FOR J=1 TO 3 

60 FOR I=0 TO 6 

70 READ C$(1,3) 

80 NEXT 1 

90 NEXT J 

100 REM SE OBTIENE EL RADICAL DEL VERBO 
110 INPUT "INFINITIVO DEL VERBO";V$ 

120 L=LEN(V$) 

130 R$=LEFTS(V$,L-2) 

140 REM SE IMPRIME LA CONJUGACION 

150 PRINT : PRINT 

160 FOR J=2 TO 3 

170 PRINT 0$(0,1) 

180 PRINT 

190 FOR I=1 TO 6 

200 PRINT C$(1,1)+" "+R9+C0$(1,J) 

210 NEXT 1 

220 PRINT : PRINT 

230 NEXT J 

240 DATA PRONOMBRES,YO,YU,EL,NOSOTROS, VOSOTROS, 
ELLOS 

250 DATA PRESENTE DE SUB.,E,ES,E,EMOS,EIS 
, EN 

260 DATA PRET.IMPERF.DE SUBJ.,ARA,ARAS,ARA,ARAM 
OS,ARAIS ARAN 

270 END 
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40. MENSAJE SECRETO 


Una de las maneras más inocentes de cifrar un mensaje consiste en sustituir 
unas letras per otras. Haz un programa que sirva para cifrar y descifrar men- 
sajes. 


El lenguaje BASIC tiene dos funciones relacionadas con el código ASCII: 
la función ASC, que aplicada a un carácter nos da su código numérico; y la 
función CHR$, que aplicada a un número nos da el carácter correspon- 
diente. Así, por ejemplo, ASC(A) es 65 y CHR$(66) es B. 


Una manera de hacer las sustituciones en un mensaje consiste en cambiar 
cada letra por el carácter cuyo código ASCH excede en tres unidades al de 
aquélla. La letra A, por ejemplo, será sustituida por la D, según el esquema: 


a AS 5 48 68 CHRE y 


Aquí la clave es sumar tres. 


Para descifrar el mensaje hay que proceder al revés: 


PIS 


Teniendo en cuenta que los procesos de cifrado y de descifrado son 
prácticamente iguales, salvo que en un caso se suma 3 y en el otro se resta, 
un mismo programa nos puede servir para cifrar y descifrar. En efecto, la 
instrucción: Ñ 


C=C+8*3 


que cambia el código de las letras, sirve para cifrar cuando S vale 1, y para 
descifrar cuando S vale —1, 


Al correr el programa aparece en la pantalla: 
CLAVE ? 
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Debemos contestar con un número no muy alto, 3 por ejemplo, que el 


ordenador guarda en la variable X. 


A continuación se nos pregunta: 
CIFRAR (1) O DESCIFRAR (-1) ? 
Si pulsamos la tecla 1, aparece en la pantalla algo parecido a esto: 


MENSAJE 

? HOY ALAS CINCO 
MENSAJE CIFRADO: 
KR iD ODVSEFLQFR 


Si pulsamos —1, obtenemos algo así: 
MENSAJE CIFRADO 
2 KR DA ODV + FLOFR 
MENSAJE DESCIFRADO: 
HOY A LAS CINCO 


En la línea 30 asignamos a las variables P$(1), P$() y PH) las cadenas 


de caracteres “DESCIFRADO”, “CIFRADO” y “” (cadena vacía), que sirven 
para adietivar convenientemente a la palabra MENSAJE, según los valores 
de S (líneas 100 y 120). 


REM MENSAJE SECRETO 

DIM P$(3) 

PS(1)="DESCIFRADO" : P$(2)="CIFRADO” : PS(3J="" 
( BORRAR LA PANTALLA ) 


INPUT "CLAVE"¿X 

C BORRAR LA PANTALLA ) 

PRINT E 
INPUT "CIFRAR (1) O DESCIFRAR (-1)"58 
PRINT 


100 PRINT "MENSAJE "¡P$((8+5)/2) 
110 INPUT M$ 

120 mOcg="" 

130 R=LEN(M$) 

140 FOR I=1 TO N 

150 L$Í=MIDS(MS,1,1) 

160 Cc=A8c(L$) 

170 C=C+S*x 
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180 'L$=CER$(c) 

190 NC$=MC$+LS 

200 NEXT 1 

210 PRINT 

220 PRINT "MENSAJE "¡P$((8+3)/2)3":" 
230 PRINT MCS$ 

240 GOTO 70 

250 END 


(Modifica el programa introduciendo claves más difíciles de descubrir) 
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41. MORSE 


Hemos de preparar un programa para la transmisión automática de mensajes 
en código Morse. Los caracteres admitidos son les que aparecen, junto con su 
código, en la tabla. Además, deseamos despreocuparnos de la transmisión de los 
códigos de final de mensaje y principio de mensaje. 


Carácter Morse ASC Carácter Morse ASC Carácter Morse ASC 


0 Di ES 68 Qe so Bl 
1 E a 69 R .. 32 
2 E US 70 Ss peas 83 
3 5 51 G =—. yA T - 84 
4 o” 5 H 12 u ió 85 
SE asc 53 1 cda 73 Vv 86 
6 54 J — 7 W 87 
7 55 K -.- 75 Xx 88 
8 - 56 L pd 76 Y 89 
9 ceo. $ Mo -— Tr z 9% 
A ed 65 N -. 78 Punto 46 
B Le... 66 o a 79 ? 63 
e =... 6 Pp: on. $0 Comienzo -.-. 
Fin ..-.- 


Almacenamos los códigos ordenados en líneas DATA, de manera que el 
ordenador los pueda leer y formar con ellos la lista siguiente: 


o 


A RA 


2 Princ. Fin 


Como no admitiremos más símbolos que los que aparecen en las co- 
lumnas de caracteres de la lista, lo primero que haremos, tras formar la lista, 
será comprobar si todos los caracteres del mensaje son admisibles o no. En 
caso afirmativo, pasamos a emitir el mensaje: tras el “principio de mensaje” 
hemos de estudiar, para todos los caracteres a emitir, si son números (ocupan 
en la lista el lugar correspondiente a su código ASCH menos 47), letras 
focupas el lugar correspondiente a su código ASCI menos 55), punto (lu- 
gar 37) o interrogante (jugar 38). 
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El programa puede quedar asi: 


10 
20 
30 
40 
50 
60 
70 
=32 


80 PRINT "EL SIMBOLO "¡MIDS(M$,1,1);" NO SE PUEDE 


REN MORSE 

DIM c$(40) 

FOR I=1 TO 40 : READ C$(1) : NEXT 1 
INPUT "CONTENIDO DEL MENSAJE”;M$ 
FOR 1=1 TO LEN(MS) 
cosAsc(MiD$(mM$,1,1)) 


IF (48<=COANDCO<=57) OR (65<=COANDCO<=90) OR CO 


OR CO=46 OR C0=63 THEN 90 


USAR" : GOTO 40 
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90 NEXT 1 

100 ( BORRAR LA PANTALLA ) 

110 PRINT : PRINT : PRINT C$(39)¿% "; 

120 FOR 1=1 TO LEN(M$) 

130 co=Asc(MID$(MS,1,1)) 

140 IF C0=32 THEN PRINT " "; ; GOTO 190 

150 1F CO=46 THEN PRINT C$(37)3" "; : GOTO 190 
160 IF C0=63 THEN PRINT C$(38)¿" *; : GOTO 190 
170 TF 48<=C0 AND C0<=57 THEN PRINT C$(C0-47); : 
oOTO 190 

180 IF 65<=C0 AND CO<=90 THEN PRINT C$(00-54); 
190 NEXT 1 

200 PRINT " "¡c$(40) : GOTO 300 

210 DATA ===-- E 
A. 

220 DATA Trono ja rr o repr + 
oro 

230 DATA ¿major pr 
Ty.” 

240 DATA consorte.” A yr 
rr 

300 END 
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42. POESIA ALEATORIA 


Deseamos un programa que reordene al azar los versos de una poesía cualquiera. 


Este programa deberá constar de las siguientes partes: 


-—— introducción de versos; 

-—rectificación de éstos, si es necesaria; * 

-— exhibición de la poesia reordenada; en tanto se desee, deberá repetirse 
esta parte. 


En lenguaje algorítmico se pueden expresar estas condiciones de la siguiente 
manera: E 


Entrar versos 

Repetir la exhibición de los versos 

hasta que estén todos bien 

haciendo mientras las rectificaciones oportunas 
Fin de Repetir 

Mientras se desee, 

hacer ¡Ón aleatoria de la poesia 

Fin de Mientras 

FIN 


Para que la estructura del programa sea más sencilla, podemos recurrir 
al empleo de subrutinas, asignándoles las siguientes direcciones: 


1000 a la rutina de entrada de versos, 

2000 a la rutina de exhibición de la poesía en su orden, 
3000 a la rutina de corrección de errores y 

4000 a la rutina de exhibición aleatoria. 


Los diagramas de flujo del programa y de la subrutina 4000, única no 
trivial, serán: - 
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Trasladar los 
posteriores al 
elegido hacia 
delante 


Sacar uno 
al azar 


En la subrutina 4000 comenzamos sacando una copia de la poesía intro- 
ducida en la memoria y desde ese momento, y mientras queden versos en 
la copia, escribiínos un verso cualquiera de la copia y adelantamos todos 
los siguientes. Si la copia tiene seis versos, por ejemplo, escogemos uno entre 
el primero y el sexto; supongamos que es el cuarto; lo escribimos y ade- 
lantamos todos los versos posteriores a éste, quinto y sexto, a las posiciones 
Cuarta y quinta respectivamente; luego sacamos otro entre el primero y el 
quinto, y así sucesivamente. 
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10 REM POESIA ALEATORIA 


100 


230 

1000 
1010 
1020 
1100 
1110 
1120 
1140 
2000 
2010 
2100 
2110 
3000 
3100 


REM PROGRAMA PRINCIPAL 

COSUB 1000 

GOSUB 2000 

INPUT "?HAY ERRORES";C$ 

IF C$<>"S1I" AND C$<>"NOQ" THEN GOTO 130 
IF C$="NO" THEN GOTO 180 

G0SUB 3000 

coro 120 

INPUT "?FINALIZO";C$ 

IF C$<>"SI" AND C$<>"NO" THEN GOTO 180 
IF C$="S1I" THEN GOTO 230 


G0SU3 4000 
GOTO 180 
END 


REM RUTINA DE ENTRADA 

INPUT "NUMERO DE VERSOS";N 

DIM VS(N),RS$(N) 

FOR 1=1 TO N 

PRINT "VERSO ";I3 : INPUT VS$(I) 

NEXT 1 

RETURN 

REM EXHIBICION EN SU ORDEN 

( BORRAR LA PANTALLA ) z 
FOR 1=1 TO N : PRINT I¿TAB(4);V$C(I) ; NEXT 1 
RETURN 

REM CORRECCION 

INPUT "NUMERO DEL VERSO A RECTIFICAR (100 PA 


RÁ NINGUNO)”; 1 


3110 
3120 
3130 
3140 
4000 
4010 
4020 
4030 
4100 
4110 
4120 
4130 
4140 
4150 


IF 1=100 THEN COTO 3140 

PRINT "NUEVA VERSION"; 

INPUT VS$(I) : GOTO 3100 

RETURN . 

REM EXHIBICION REORDENADA 

Í BORRAR LA PANTALLA ) 

FOR I=1 TO N : RS(I)=VÍ(I) : NEXT 1 
K=N 

IF K=0 THEN GOTO 4150 
I=1+INT(K*RND) : PRINT R$(1I) 

1F I>k THEN 4140 

FOR J=I+*1 TO K: RS(J-1)=R$(J) : NEXT J 
K=k-1 : COTO 41009 

RETURN 
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43. GIRO DE LETRAS (6.41) 


Escribir en la pantalla, como si fueran los vértices de un cuadrado, las si- 
guientes letras: 


D Cc 


Hacer un programa que gire las letras en el sentido de las agujas del reloj, 
si pulsamos R; y en sentido contrario, si pulsamos C. 


Colocamos las letras A, B, C y D en las variables A$, B$, CH y Df res- 
pectivamente. Para imprimirlas en la pantalla, de forma que estén centradas, 
nos valemos de la función TAB. 


Antes del giro colocamos las letras en las variables auxiliares Alf, B1$, 
Clg y Di$, que es lo que nos va a permitir realizar a continuación el giro 
en un sentido u otro, según la letra que pulsemos, pues esos valores irán a 
las variables primitivas, pero ya giradas. 


El programa no tiene fin, por lo que es necesario para terminar pulsar la 
tecla correspondiente a interrupción de la ejecución del programa. 


10 REM “GIRO” DE LETRAS 

20 AP=“A” : Bg=B” : CfC : DG =D" 

30 REM PRESENTACION DE LáS CUATRO LETRAS 

40 PRINT TAB(18):A$:TAB(22)B$ 

50 PRINT ; PRINT 

$0 PRINT TAB(IS):D$/TAB(2):Cf : PRINT 

70 PRINT “PARA ”:CHR$(4);GIRAR”:CHR$(34):" EN EL SENTIDO DE LAS AGUJAS” 
80 PRINT : PRINT “DEL RELOJ PULSE R Y EN SENTIDO CONTRARIO” 
90 PRINT : PRINT “PULSE C” ; PRINT 

100 INPUT G$ 

110 IF Gf<>"kR” AND Gf<>“C” THEN 10 

120 AIS=AS : Bl E] : CI$=CÍ : DI$=DP 

130 1F G$="R” THEN 160 

140 DI=A1$ : CH=DI8 : BF=CI$ : AB=BIB 

150 (BORRAR LA PANTALLA) : GOTO 40 

160 BF=A1$ : CP=B1$ : DI=CI8 ¿AS=DIS 

170 (BORRAR LA PANTALLA) : GOTÓ 40 

180 END 
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4. GRAFICOS 


44. BANDERA U.S.A, 
Haz un programa para dibujar en la pantallo la bandera de los EE.UU. 


00001 
ARA 


1 
ARAN 


02:04 + RIN EIC 
Fidkkkkr 


4 14:4 4 y MEE 
SEAN 
E 
A] 


Hay muchas maneras de programar el dibujo de esta bandera. Nosotros 
hemos elegido una que conlleva el empleo de subrutinas; no porque creamos 
que es el mejor modo de hacerlo, sino por mostrar un ejemplo de empleo de 
subrutinas a varios niveles. 


El diseño del programa está basado en la observación de que en cada 
fila bay sicte estrellas y que las barras están formadas por catorce o por veín- 
tiún cuadraditos. 


La subrutina llamada ESTRELLAS imprime 7 estrellas en línea. La subru- 
tina BARRA imprime una barra horizontal de 7 cuadraditos. 


La subrutina ESTRELLAS Y BARRAS utiliza las dos anteriores para 
imprimir una linea de 7 estrellas y 14 cuadraditos. La subrutina BARRAS Y 
BARRAS imprime una barra de 21 cuadraditos, utilizando para ello la subru- 
tina BARRA, 

El programa principal (líneas 100-220) combina las subrutinas para impri- 
mir, línea a línea, la bandera. 


Si tu ordenador no dispone del signo Ml, puedes sustituirlo por el signo =. 


(Esperamos que la pérdida de una estrella no sea motivo de ninguna nota 
de protesta diplomática.) 
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REM BANDERA U.S.á. 

( BORRAR LA PANTALLA ) 

FOR FIlA=l 70 3 

GOSUB 700 : REM ESTRELLAS Y BARRAS 
GOSUB 500 : REM ESTRELLAS 

PRINT 

NEXT FILA 

G0S0B 700 : REM ESTRELLAS Y BARRAS 
FOR FILA=5 TO 7 

PRINT ; 
C08UZ 800 : REM BARRAS Y BARRAS 
NEXT FILA 

END 

REM SUBRUTINA ESTRELLAS 

FOR E=1 10 7 

PRINT "*"; 

NEXT E 

RETURN 

REM SUBRUTINA BARRA 

FOR C=l TO 7 

PRINTS; 

NEXT € 

RETURN 

REM SUBRUTINA ESTRELLAS Y BARRAS 
COSUB 500 : REM ESTRELLAS 

GO0SUB 600 : REM BARRA 

GOSUB 600 : REM BARRA 

PRINT 

RETURN 

REM SUBRUTINA BARRAS Y BARRAS 
GOSUÍ 600 ; REM BARRA 

COSUB -600 : REM BARRA 

CGOSUB 600 : REM BARRA 

PRINT 

RETURN 


45. EVOLUCION DE LA POBLACION (6.15) 


La población de una ciudad ha evolucionado de la siguiente forma: 


1935... 1238400 1960... 2362057 
1940... 1401107 1965... 2716366 
1945... 1580880 3123821 
1950... 2... 1786035 2. 3592394 
LO 2053963 18D cr 4237525 


Queremos representar esta evolución mediante un diagrama de barras hori- 
zontales. Para ello deberás utilizar el signo WM. Tras escribir el año y espacio 
en blanco, pondrás las barras de longitud proporcional a la población, Bas 
de cuidar el probiema de escalas: dispones de 34 casillas que has de aprovechar 
al máximo. Por ejemplo, a 4237525 que es la cifra más alta, le puedes hacer 
corresponder las 34 casillas, o un número de espacios próximo a 34. 


1935 
1949 
1945 
1958 
1955 
1969 
1965 
1978 


1975 


1990 


El año y la población están recogidos en las variables con índice A(1) y 
P(D respectivamente, donde 1<1<10. 
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Para elegir la escala, asociamos al valor máximo gue designamos por M, 
las 34 casillas; luego a un número N de habitantes le hacemos corresponder: 


N+34/M 


Como generalmente saldrá un número decimal es necesario redondear las 
unidades mediante la sentencia: 


S=INT(N=34/M+0.5) 


El número de casillas asociado a la población P(I) se guardará en la va- 
riable COD). En el ciclo 130-160 leemos los años y las poblaciones correspon- 
dientes, y a la vez determinamos el valor máximo de la población, mediante 
la instrucción de la línea 150, valor que guardamos en la variable M. 


En la línea 190 se imprime el año A(D) y en la 200 se hace el cambio de 
escala. 


A continuación imprimimos la barra correspondiente a la población 1 con 
las instrucciones de las líneas 210-230, 


10 REM EVOLUCION DE LÁ POBLACION 
20 ( BORRAR LA PANTALLA ) 

30 PRINT "REPRESENTACIÓN DE LA EVOLUCION” 
40 PRINT "DE LA POBLACION DE UNA CIUDAD" 
50 PRINT "MEDIANTE DIAGRAMA DE BARRAS” 
60 PRINT : PRINT 

70 PRINT "PARA VER EL DIAGRAMA PULSE" 

80 PRINT "UNA TECLA" 

90 GET AS 

100 1T A$="" THEN 90 

110 ( BORRAR LA PANTALLA ) 

120 M=0 

130 POR 1=1 To 10 

140 READ A(1),P(1) 

150 1F PC(1)>M TREN M=P(1) 

160 NEXT 1 

170 REM REPRESENTACION DIAGRAMA 

180 FOR 1=1 To 10 

190 PRINT : PRINT ; PRINT A(1); 

200 C(I)=INT(P(1)*34/M+0.5) 

210 FOR J=1 TO C(1) 

220 PRINT “Ns 

230 NEXT J 
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240 
250 
260 
270 
280 
290 
300 


NEXT 
DATA 
DATA 
DATA 


DATA. 


DATA 
END 


1 

1935,1238400,1940,1401107 
1945,1580880,1950,1786055 
1955,2053963,1960,2362057 
1965,2716366,1970,3123821 
1975,3592394,1980,4237525 
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46. DIAGRAMA DE BARRAS HORIZONTALES 


Programa un diagrama de barras horizontales para representar distintas 
Jrecuencias. 


MO PR Y 


El número de barras del diagrama se lo daremos al ordenador mediante 
INPUT. Una vez establecido este número B, doce como mucho, introduci- 
remos por parejas el nombre N$(I) y la frecuencia F(I) correspondientes a 
cada barra. 


De los cuarenta caracteres que tiene cada línea de pantalla, reservamos 
los dos primeros para el nombre de la barra, el tercero para un espacio, y 
a continuación dibujamos la barra, con 30 caracteres como máximo; por 
último, escribimos las cifras de la frecuencia separadas de la barra por un 
espacio. 


La frecuencia mayor va a ser representada en el dibujo por 30 caracteres; 
por tanto, tendremos que reducir (o ampliar) todas las frecuencias de modo 
que la mayor de ellas sea 30. Esto se puede hacer con la instrucción: 


FR(D=F(D/MAX+*30 


En donde MAX representa la frecuencia máxima, que previamente hay que 
obtener. 
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Como, previsiblemente. los valores FR(I) no serán enteros, los redondea- 
remos al entero más próximo. Así: 


FR()=INT(F(D/MAX=3040.5) 


Esta será la instrucción que realmente figure en el programa. 
Del nombre de cada barra imprimiremos los dos primeros cáracteres más 
un espacio. Podemos hacerlo asi: 


PRINT LEFTH(NID.DS >; 


Para prever la posibilidad de que algún nombre tuviera inicialmente un 
solo carácter, en cuyo caso la barra correspondiente quedaría corrida un lugar 
a la izquierda, añadimos un espacio a todos los nombres Ná(T). La instruc- 
ción que va a figurar en el programa es: 


PRINT LEFTHN$O +“ "2% 5 
La impresión de cada barra la hacemos mediante el ciclo: 


FOR J=1 TO FR(D) 
PRINT “E; (1) 
NEXT J 


Hay que tener previsto un caso excepcional: cuando la frecuencia FR(D) 
es cero. En efecto: las instrucciones interiores de un ciclo FOR-NEXT se 
ejecutan por lo menos una vez. En consecuencia, el ciclo: 


FOR J=1 TO 0 
PRINT “E>; 
NEXT J 


imprimirá un cuadradito, en lugar de dejar la línea en blanco. 


Para obviar este inconveniente, una instrucción del tipo 
1F FR(D=0 THEN ... 


debe preceder al ciclo (1), de modo que éste pueda saltarse en el caso de que 
FR(D sea cero. 
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El ordenador anuncia el fin de la ejecución de un programa imprimiendo 
en la pantalla la palabra READY. En ocasiones interesa que no aparezca esta 
impresión para no estropear lo escrito en la pantalla. Una forma de evitar 
READY es con una línea como ésta: | 


300 GOTO 300 


con lo cual la ejecución se mete en un ciclo sin fin. Para salir de él se pulsa 
la tecla STOP. 


10 REM DIAGRANA DE BARRAS HORIZONTALES 
20 INPUT "NUMERO DE BARRAS(12 COMO MAXIMO)";B 
30 DIM F(B),FR(B),N$(3) 

40 PRINT 

50 PRINT "ESCRIBE El NOMBRE DE LA BARRA Y" 

60 PRINT 

70 PRINT "LA FRECUENCIA SEPARADOS POR UNA COMA" 
PRINT 

80 FOR 1=1 TO B 

90 INPUT N$C(1),F(1) 

100 NEXT 1 

110 MAX=F(1) 

120 FOR 1=1 TO B 

130 IF MAX < F(1) THEN MAX=F(1) 

140 NEXT 1 

150 FOR I=1 TO B 

160 FR(1)=INT(F(1)/MAX*30+0.5) 

170 NEXT 1 

180 ( BORRAR LA PANTALLA ) 

190 FOR 1=1 TO B 

200 PRINT LEFTS(N$(1),2)3" "; 

210 1F FR(1)=0 TREN 250 

220 FOR J=1 TO FR(I) 

230 PRIRT "E"; 

240 NEXT J 

250 PRINT F(1) 

260 PRINT 

270 NEXT 1 

280 Goro 280 

290 END 
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47. DIAGRAMA DE BARRAS VERTICALES 


Programa un diagrama de barras verticales para representar las ventas men- 
suales de una empresa. 


EN FE MR AB MY JN JL AG SE OC NO DI 


Vamos a resolver este problema concreto con un programa muy general, 
que servirá para representar un diagrama de barras en un caso cualquiera. 
El programa está preparado para que pueda tener salida por la impresora, si 
así lo deseas. 


El número máximo de barras queda establecido en 12 y la altura máxima 
de las barras en 20, 


El número B, de barras que vamos a dibujar, se introduce al principio 
con INPUT; así como los nombres N$(J) de las barras y las frecuencias F(J) 
correspondientes. Al tiempo se va obteniendo el valor máximo de las frecuencias, 


Para llegar a imprimir el diagrama te proponemos la siguiente idea: 
Establecer una tabla de cadenas de caracteres T$(,D), de 20 filas y B co- 
lumnas (1=1,2,..,20; J=1,2,....B): 
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T$(20,1) T$00,2 ... TÍCO.B) 


TR, 02) MiS T$C.B) : 
TH TRA... TS(LB) 


Los elementos de la tabla van a ser uno de estos dos motivos: 


Ladrillo blanco: LB$=“[ ” (tres espacios) 
Ladrillo negro: LN$=" CIN” (un espacio y dos cuadraditos negros) 


Un diagrama de barras es como un muro construido cor estos ladrillos, 
con la condición de que nunca haya un ladrillo negro sobre un ladrillo blanco. 


7 EA 
e AO | A 
: CM 1 
+ CMI (MO (MO 
> ES O 
2 MS CS 
a 


Al ejecutar el programa, primero se rellena toda la tabla de ladrillos blancos 
y después, en cada columna, se cambian por ladrillos pegros hasta la altura 
correspondiente. Á la hora de imprimir la tabla, lo haremos por filas, de arriba 
abajo, con lo que quedará dibujado el diagrama. Debajo imprimiremos las 
dos primeras letras del nómbre de cada barra. 


Para cada colurana J, la pila correspondiente de ladrillos negros se forma 
con el ciclo: 
FOR 1=0 TO FRY * 
THU) =LNY 
NEXT 1 
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siendo FR(3) la frecuencia reducida (o ampliada), de modo que la barra más 
alta tenga siempre 20 de altura, 


Observa que el ciclo se inicia siempre por 1=0, cuyos elementos serían 
como los cimientos del muro. Sin embargo, la impresión de la tabla se haco 
a partir de l=1, con lo cual los cimientos no figurarán en el dibujo. ¿Por 
qué todo este lío? Por que el cicio FOR-NEXT se ejecuta al menos una vez, 
y si la frecuencia FR(1) fuese cero y el índice 1 empezara en 1, entonces el 
cielo: 


FOR I=1 TO 0 
THiLJ) =LN$ 
NEXT 1 


daría lugar a una barra vertical de altura 1, y no debería haber barra. 


10 REM DIAGRAMA DE BARRAS VERTICALES 
20 INPUT "NUMERO DE BARRAS ( 12 COMO MAXIMO )";5 
39 DIM T$(20,B),NS(B),F(B),FR(B) 

40 MAX=0 

50 LB$8="CT" : LNS="O" 

60 FOR 1=1 TO 20 

70 FOR J=1 TO B 

80 T$(1,J3)=LB$ 

90 NEXT J 

100 NEXT 1 

110 FOR J=1 TO B 

120 PRINT 

130 INPUT "NOMBRE DE LA BARRA";¿N$(J) 
140 PRINT "VALOR DE ";NS(J); 

150 INPUT F(J) 

160 IF MAX<F(J) THEN MAX=F(J) 

170 NEXT J 

180 FOR J=1 TO B 

190 FR(J)=INT(F(J)/MAX*20+0.5) 

200 NEXT 3 

210 FOR J=1 TO B 

220 FOR 1=0 TO FR(J) 

230 T$(1,J)=LN$ 

240 NEXT 1 

250 NEXT J 

260 ( BORRAR LA PANTALLA ) 

270 FOR 1=20 TO 1 STEP -1 

280 FOR J=1 TO 3 

290 PRINT T$(1,3); 
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300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
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NEXT J 
PRINT 

NEXT 1 

PRINT 

FOR J=1 TO B 

PRINT " "+LEFTS(NS(I)+" ",2)3. 
NEXT J 

PRINT : PRINT 

PRINT "FRECUENCIA MAXIMA: "¡MAX 
GOTO 390 

END 


48. ASCENSOR 


Dibuja un esquema de la sección de un edificio en que aparezca el hueco del 
ascensor, y programa el movimiento de éste. 


El programa que presentamos consta de dos partes claramente diferenciadas: 
el dibujo dela sección del edificio (hasta la línea 80), que emplea la subrutina 500 
para dibujar el suelo de las plantas; y las lineas 110 a 140, en las cuales se 
comprueba si se ha pulsado la tevla de subida o de bajada; en caso afirmativo 
se envía a las subrutinas correspondientes, que mueven el ascensor mientras 
pueden o hasta que llega una orden de parada, 


La variable P controla el “piso” (la fila) en que se encuentra el ascensor. 


10 REM ASCENSOR 

20 REM EDIFICIO 

30 PRINT "MW"; : GOSUB 500 

40 FOR P=6 TO 0 STEP -1 

50 PRINT : PRINT "1" o; PRINT "4" ; PRINTO"J]"; : 60 
SUB 500 

60 NEXT P 

80 PRINT AT 19,13"E";AT 20,1¿"N" 
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100 LET P=19 ; LET TS=INKEYS ; 1F T$<>"s"” THEN GO 
To 100 

110 LET TS=INKEYS 

120 IF T$="S" THEN GOSUB 300 

130 IF T$="B" THEN GO0SUB 400 

140 coTo 110 

199 STOP 

300 REM SUBIDA 

310 LET P=P-1 

320 PRINT AT P,13"EU¡AT P+1, 1" ¡AT P+2,1," 
325 FOR I=1 70 50 : NEXT 1 

330 IF INKEY$<>"P" AND P>]1 THEN GOTO 310 

340 RETURN 

400 REM BAJADA 

410 LET P=P+1 

420 PRINT AT P-1,13" "¡AT P,1¿ "UAT OP+1,1,"8" 
425 FOR I=1 TO 50 : NEXT 1 

430 IF INKEY$<>"P" AND P<20 THEN GOTO 410 

440 RETURN 

500 REM PISO 

510 FOR C=2 TO 30 

520 PRINT "WN; 

530 NEXT € 

540 RETURN 


49. REPRESENTACION GRAFICA DE FUNCIONES 


Vamos a elaborar un programa para representar funciones en la pantalla sin 
disponer de alta resolución. Lo hacemos pensando en una pontalla de 25 filas 
por 40 columnas, pero de forma que el programa sea fácilmente trasportable a 
otras dimensiones. 


La idea básica es definir la pantalla como una tabla A$(L,J) de caracteres, 
que serán blancos, asteriscos o los elementos de los ejes. Primero se meterán 
en los lugares precisos de la tabla los caracteres correspondientes, y al final se 
imprimirá la tabla entera, apareciendo la gráfica. 


Dimensionamos A$(23,38) porque el cero también cuenta y porque no se 
puede llegar al final de cada fila, al elemento 39: si no, se imprimiria una 
línea en blanco. Algo parecido suele suceder con el 24, que puede hacer perder 
la fila superior. 


Una de las partes importantes del programa son las denominadas VARIA- 
BLES AUXILIARES (líneas 190 a 290): 


IN: — es el valor del incremento de la X, la amplitud total del intervalo 
dividida entre 38, 

Mt: es el valor de la X más próximo a cero. Si la X pasa de positiva 
a negativa, M1 servirá para señalar la columna en la que dibuja- 
remos el eje OY. 

M2: — valor de la Y más próximo a cero. Si la función cambia de signo, 
M2 servirá para dibujar el eje OX. 

MIN: valor mínimo de la función. 

MAX: valor máximo de la función. 


Estos últimos sirven para centrar la escala de las ordenadas: situaremos 
a la mitad el valor Y M=(MIN+ MAX)/2. Después, y para no distorsionar la 
escala, tomaremos como incremento en el eje OY el mismo que en el eje OX, 
de forma que el valor mínimo admitido para la Y será Y1i=YM-—11-IN y 
el máximo Y2=YM +11-1N. 
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Después se representan los ejes, si es que el intervalo de curva a representar 
los corta. El eje OY se representa en la columna (M1 —X1)JIN y el eje OX 
en la fila (M2— Y D/IN. En la intersección se representa una cruz, 


Llega por fin la situación de los asteriscos que representarán la función. 
Desde 1=X1 hasta X2, tomando por incremento IN, se van situando los 
asteriscos en la posición 


(FNYO — YI/IN,1 —XD/0N) 


Como los indices han de ser enteros, cada vez redondearemos sus valores. 


Las líneas que siguen a la 460 se encargan de llevar a la pantalla los va- 
lores de la tabla. 


La ejecución de este programa puede traer algunos quebraderos de cabeza. 
Para muestra un botón: queremos representar la función 


ES 
A 


en el intervalo [—1.9,1.9]. Aunque la curva es una S tumbada, en nuestra 
máquina hemos obtenido la siguiente representación: 


* 
* 


Sin embargo, tomando el intervalo [—1.9,1.91] la representación es la 
correcta. 
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El problema es el siguiente: en el bucle de las líneas 220 a 270 podriamos 
escribir: 


220 FOR [=-—19 TO 19 STEP .1 


Pero de hecho nuestra máquina no Hega a tomar el valor 1.9, porque 
Aparecen unos decimales que exceden de ese valor. Esto descentra la función: 
en efecto: 


f(—19)=2,97 119) =-—2,97 
11,8) =0,568 1(1,8)= 0,568 


(el máximo y mínimo no llegan en valor absoluto a 0,8). 


Si se prescinde de 1(1,9) = —2,97, la función está coraprendida entre —0,568 
y 2.97. El punto medio, el centro de la representación, es YM==1,2. Como 
el incremento es de 0,1, se representan todos los valores de la Y compren- 
didos entre Y] e Y2: 


Yl=1,2-11-0,1=0,1 
Y2=1,2+11:0,1=2,3 
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lo que explica la aparente representación incorrecta. Probando y eligiendo bien 
los extremos del intervalo de representación se solucionan todos los problemas. 


10 REM REPRESENTACION DE FUNCIONES 
20 (BORRAR LA PANTALLA) 
30 PRINT : PRINT “TECLEA LA FUNCION PRECEDIDA DE” 


40 PRINT : PRINT * 100 DEF FNY(9=..” 
SO PRINT : PRINT “DESPUES ESCRIBE RUN 160” 
60 STOP 


110 (BORRAR LA PANTALLA) 
120 DIM _A$(23.38) > 

130 PRINT * PRINT “INTERVALO DE REPRESENTACION” 
140 INPUT “(X1<X2)'¿XLX2 

159 (BORRAR LA PANTALLA) 

160 FOR 1=0 TO 23 : FOR J=0 TO 38 

170 AfA.D)=" > 

180 NEXT J : NEXT 1 

190 REM VARIABLES AUXILIARES 

200 Mi=X1 : M2=FNY(XI) : MIN=FNY(X1) : MAX=FNY(XI) 
210 IN=0X2- X1)/38 

220 FOR l-=X1 TO X2 STEP IN 

220 IF ABS(D<ABS(M!) THEN Ml=] 

240 IF ABS(FNY(I)) <ABS(M2) THEN M2=FNY() 

250 1F ENY(D<MIN THEN MIN=FNY(D) 

260 IF ENY()>MAX THEN MAX=FNYD) 

270 NEXT 1 

280 YM=(MIN+MAXJ/2 

290 YI=YM—-1XxIN : Y2=YM+L1xIN 

300 REM _REPRESENTACION DE LOS EJES 

310 1F SGN(U)=SGN(X2) THEN 350 

320 FOR J=0 TO 23 

330 AS(INT(MI X1YIN+.5)="9" 

340 NEXT J 

330 IF SGN(YI)=SGN(Y2) THEN 399 

360 FOR I=0 TO 38 

370 AÑUNT(M2—Y IN +9) D="" 

380 NEXT 1 

390 IF SGN(XI)>SGN(Q() OR SGN(Yi)==SGN(Y2) THEN 410 
400 AS(NT(M2—YD/IN + )INT(MI Xy IN +5)" 
410 REM REPRESENTACIÓN DE LA FUNCION 

420 FOR l=X1 TO X2 STEP IN 

430 IF FNY()<YI OR FNYG)>Y2 THEN 450 

440 AJUNT(ENYO) —YIJIN + S,INT(E—X0/IN+ 5) ="*" 
450 NEXT I 

460 FOR I=23 TO 0 STEP —1 : FOR J=0 TO 38 
470 PRINT A$0,)); 

480 NEXT J 

490 PRINT 

500 NEXT 1 

S10 GOTO $10 

52 END 
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50, RECTA ENTRE 2 PUNTOS (6.42) 


Hacer un programa que, dados dos puntos en la pantalla por sus coordenadas 
(X columna, Y fila), trace una línea de asteriscos entre ambos. 


Supondremos que la pantalla es de 25 filas por 40 columnas, numeradas 
del O al 24 y del O al 39, Es peligroso trabajar con el 39 pues, tras imprimir 
ahí, el cursor pasa a la fila siguiente. Tomamos entonces las columnas del O 
al 38 y, por analogía, las filas del 0 al 23. Si tu microordenador tiene otras 
dimensiones de pantalla has de corregir las líneas 50, 70, 110 y 120, 


Hasta la línea 70 es la entrada de datos. Después hacemos que (X1, Y1) sea 
el punto más alto de los dos dados, borramos la pantalla y bajamos el cursor 
hasta la fila Y1. 


Según la pendiente, las rectas se clasifican en los 4 siguientes tipos que se 
resuelven sucesivamente: 


m= 00 Ímj>1 —i<ms0 O<m<i 
* * * 
*o 2 * 
* * * 
* * * » $ 
K * * e $ de 
* * $ GA ro 
* * ES 
K * 
Xx ES ES 
* ex 
3 3 


Los tres primeros tipos son sencillos, se resuelven en pocas líneas, que 
entenderás fácilmente. En el último no hemos querido utilizar variables de ín- 
dice, y entonces tiene cierto interés. Todo el problema es que se imprime de 
arriba a abajo, pero en'este caso había que ir de"derecha a izquierda, pues 
puede haber varios asteriscos en una linea. Se recoge el organigrama parcial 
de este caso, en el que P es el número de asteriscos que se imprimen en una 
misma fila y M es la pendiente. 
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IMPRIMIR 
“+” CON- 
VENIENTEMENTE 
TABULADO 
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10 REM RECTA ENTRE DOS PUNTOS 

20 (BORRAR LA PANTALLA) 

30 PRINT “DAR LOS PUNTOS” 

40 INPUT “PUNTO 1 (X.Y) iXL Yi 

50 1F X1>38 OR XI<0 OR Yi>23 OR Y1<0 THEN 40 
60 INPUT “PUNTO 2 (X,Yy"¡X2,Y2 

70 1F X2>38 OR X2<0 OR Y2>23 OR Y2<0 THEN 60 
80 IF Y2<=YI THEN 100 


9) X=XI : 


109 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 


=Y1 :Xl=X2 : Yl=Y2 :X2=X : Y2=Y 

(BORRAR LA PANTALLA) 

IF Yi=23 THEN 130 

FOR I=1 TO 23-Y1 : PRINT : NEXT 1 

1F X1<>X2 THEN 180 

FOR I=1 TO Yi-Y2+1 

PRINT TAB(XIJ"" 

NEXT 1 

GOTO 170 

1F ABS((YI-Y2)/001-X2)<1 THEN 230 

FOR 1=YI TO Y2 STEP —1 

PRINT TAR(X1+(0-XD/(Y1 -Y2>Y1-Djós 

NERT 1 

GOTO 220 

IF X1>X2 THEN 310 

K=0 

FOR 1=0 TO X2-X1 

PRINT TABQU+Dé%2" 
=(12-Y1X2-XDéU+ 0) 

IF INT(Y+.5)>K THEN PRINT : K=K+1 

NEXT 1 

GOTO 300 

Pel: M=(Y2-YI/02—XD 

FOR 1=0 TO XI-X2 

IF INT(Y1—Mel+.5)> INT(Y1—Me(141)+.5) THEN 350 

P=P+i : GOTO 390 

FOR N=1 TO P 

PRINT TABQO —1+N= Ive" 

NEXT ON 

PRINT : P=1 

NEXT 1 

GOTO 400 

END 
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5. COLOR Y ALTA 
RESOLUCION 


COLOR Y ALTA RESOLUCION 


Presentamos a continuación una serie de programas que realizan dibujos 
en baja y en alta resolución. En baja resolución se considera que la pantalla 
está formada por un cierto número de filas (generalmente entre 22 y 24) y de 
colurmnas (entre 22 y 80, aunque en los micros lo más normal es que sean 22, 
32 6 40). Así queda la pantalla dividida, por una retícula, en una cierta cantidad 
de pequeños rectángulos, en cada uno de los cuales se puede dibujar una letra, 
un número o algún carácter especial. De este modo se realizan los dibujos em 
baja resolución; los caracteres se sitúan en pantalla gracias a dos coordenadas: 
su fila (se cuenta siempre de arriba a abajo) y su columna (de izquierda a derecha). 


En muchos microordenadores, cada vez en más, podemos dibujar también 
en alta resolución; la pantalla se puede considerar dividida en un número mayor 
de lugares (68 x 48, 256 x 176, 256 x 192, 640 x 320, etc.; el primer número se 
refiere a los puntos en horizontal y el segundo a los puntos en vertical). 
Conviene tener en cuenta que, en algunos ordenadores, los valores máximos 
de las coordenadas de los puntos y el número de puntos no coinciden: puede 
suceder que al pintar en pantalla el punto de coordenadas (1023, 1023) ten- 
gamos la misma imagen que al pintar el (1022, 1023), por ejemplo. 


Una particularidad a tener en cuenta es que, en bastantes micros, el pun- 
to (10,30) está más abajo que el (10,20), porque la segunda coordenada crece 
desde arriba hacia abajo. Nosotros hemos optado por tomar por origen de 
coordenadas el vértice inferior izquierdo, y no el superior. Si tu ordenador 
sitúa el origen arriba, debes realizar siempre un cambio de coordenadas para 
no verlo todo del revés (en nuestros programas o en los que tú inventes); este 
cambio, que afecta sólo a la segunda coordenada, para una pantalla de 256 x 192 
puntos será; 


(6) — (2,192 y) 
que en BASIC se expresa: 
Y=192-Y 


Para dibujar en color, sea en baja o alta resolución, debes consultar con 
el mayor detenimiento el manual de tu aparato. Hay ordenadores que no per- 
miten dibujar en alta resolución con todos los colores al tiempo, pero si tu 
micro carece de esta limitación, puedes mejorar espectacularmente los dibujos 
que te sugerimos, Buena suerte, 
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51. BANDERA DE FRANJAS HORIZONTALES 


Deseamos dibujar banderas cuyos colores estén dispuestos formando bandas 
horizontales. 


Para definir una bandera debemos especificar cuántas franjas tiene, y cuál 
es el color y ancho de cada una. Estos valores, color y ancho de cada franja, 
los guardamos en las columnas primera y segunda de una tabla B, que tendrá 
tantas filas como franjas tenga la bandera con que se corresponde, 


Una vez dados los valores de B, el ordenador va a dibujar cada una de 
las franjas (linea 90), para ello se prepara a hacer cuadraditos del color co- 
rrespondiente (línea 100), cosa que tendrá que hacer en tantas filas como indique 
la anchura de la banda (linea 110). Las líneas 120 a 140 pintan cada una de 
esas líneas de cuadraditos. 


10 REM BANDERA DE FRANJAS HORIZONTALES 
20 INPUT "NUMERO DE FRANJAS"¿NU 

30 DIM B(NU,2) 

40 FOR N=1 TO NU 

50 PRINT "COLOR "¿N; ; INPUT B(N,1) 

60 INPUT "ANCHURA ";B(N,2) 

70 NEXT N 

30 ( BORRAR LA PANTALLA ) 

90 POR N=1 TO NU 

100 PAPER B(N,1) 

110 FOR I=1 TO B(N,2) 

120 FOR J=1 TO 30 

130 PRINT " "; (cada espacio -—* ”-— será del color B(N,1). 
140 NEXT J 

150 PRINT 

160 NEXT 1 

170 NEXT N 

180 END 
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52. BANDERA DE FRANJAS VERTICALES 


Si ahora queremos que los colores formen bandas verticales, el problema 
cambia un poco. Vamos, de todas maneras, a utilizar la misma tabla B del 
ejercicio anterior, y almacenaremos en ella el color de cada franja y su anchura, 
en B(N,1) y B(N,2) respectivamente. La variable NU seguirá siendo el número 
de franjas. 


Supondremos que la bandera ha de cubrir 22 filas de pantalla. En cada una 
de ellas el ordenador debe imprimir una tira horizontal de cuadraditos del 
primer color B(1,1), de B(1,2) cuadraditos de largo; luego, en la misma fila, 
otra de color B(2,1) y de B(2,2) cuadrados de largo, y así hasta completar la 
primera tira horizontal. Luego se pasa a la segunda (línea 160) y se repite 
el proceso hasta llegar a la fila 22, 


10 REM BANDERA VERTICAL 
20 INPUT "NUMERO DE FRANJAS "¡NU 

30 DikM B(NU,2) 

40 FOR N=] TO NU 

50 PRINT "COLOR "¿N; : INPUT B(N,1) 
60 PRINT : INPUT "ANCHURA ";B(N,2) 
70 NEXT R 

380 ( BORRAR LA PANTALLA ) 

90 FOR F=0 TO 21 

100 FOR N=1 TO NU 

110 PAPER B(X,1) 

120 FOR I=1 TO B(N,2) 

130 PRINT " "; 

140 NEXT 1 

150 NEXT N 

160 PRINT 

170 NEXT F 

180 END 
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33. MONDRIAN 


Piet Mondrian ha sido un pintor cuyos cuadros más característicos son de 
motivos geométricos. Vamos a decirte cómo reproducir en la pantalla de tu or- 
denador una de sus obras más conocidas. Deseamos que tus diseños alcancen 
tanta fama como los suyos. 


Fondo: Negro 


1. Blanco 
2. Rojo 

3. Azul 

4. Amarillo 


Lo mismo que ocurría con las franjas de las bandoras, a cada rectángulo 
parcial conviene que le asígnemos un número, su color, y otros dos relacio- 
nados con su largo y ancho, medidos en cuadraditos elementales; pero además 
le adjudicaremos otros dos, los correspondientes a la fila y columna en que se 
sitúa su vértice superior izquierdo. 


Todos estos valores los almacenamos en líneas DATA, 


El programa es muy sencillo. Tras poner la pantalla en negro (línea 30), 
se repite la misma tarea para cada uno de los siete rectángulos: se leen los 
cinco valores asociados al rectángulo (línea 50): luego el ordenador se prepara 
a pintar en el color preciso (línea 60), y hace A(2) filas de anchura A(), 
comenzando con el cuadradito de “coordenadas” A(4), A(S) (A(4) es la fila 
en que está el vértice superior izquierdo. y A(5) es la columna de ese mismo 
vértice). 
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10 REM MONDRIAN 

20 DIM A(5) 

30 PAPER 0 : CLS 

40 FOR 1=1 TO 7 

50 FOR J=1 TO 5 : READ A(J) ¿NEXT J 
60 PAPER A(1) 

70 FOR F=0 TO A(2) 

80 FOR C=1 TO A(3) 

90 PRINZ AT A(4)+F,A(5)+Cc¿" " 


100 NEXT € 

110 NEXT F 

120 NEXT 1 

200 DATA 7,6,5,0,5 
210 DATA 7,7,5,8,5 
220 DATA 5,4,5,17,5 
230 DATA 2,15,16,0,11 
240 DATA 7,4,13,17,11 
250 DATA 7,1,2,17,25 
260 DATA 6,1,2,20,25 


300 END 


54, ESPIGUILLA 


Haz un programa que llene la pantalla de tejido de espiguilla, de colores a 
elegir. 


Se llama tejido de espiguilla a aquel en que los hilos se cruzan dando lugar 
a un dibujo como el de la figura. 


Para fijar ideas vamos a suponer una pantalla de veintidos filas y treinta 
y dos columnas. Deben aparecer dos tipos de filas: las que tienen un cuadrado 
en cada extremo y todo lo demás son rectángulos, pares de cuadrados de 
igual color, y las formadas totalmente por rectángulos. 


En la figura hay cuatro clases de filas, ya que se puede comenzar pintando 
primero con el color más claro, las dos primeras filas, o con el más oscuro, 
filas tercera y cuarta. Sin embargo, como las filas primera y tercera, por un 
lado, y la segunda y cuarta, por el otro, tienen la misma estructura, podemos 
pedirle al ordenador que, tras dibujar una fila de cada tipo, permute los 
colores. Un algoritmo que describe este proceso es el siguiente: 


Introducir los colores elegidos 
lo 


1 

2 

3. Borrar la pantalla úl 
4.1 Hacer 11 veces (contador N) 


A e to 


42 Si N es impar 
entonces 
Hacer P=Pl y S=8S1 
Hacer P=S1 y S=Pl 
Fin de Si 
4.3 Dibujar fila del Tipo 1 - 
4.4 Dibujar fila del Tipo 2 
4,5 Siguiente vez 
5 FIN 


Para fila de Tipo 1 y para fila de Tipo 2 podemos preparar subrutinas de 
acuerdo con los siguientes algoritmos: 


4.3 Dibujar un cuadrado con el color P 
Hacer 7 veces 
Dibujar 2 cuadrados de color $ 
Dibujar 2 cuadrados de color P 
Siguiente vez 
Dibujar 2 cuadrados de color S 
Dibujar 1 cuadrado de color P 
Fin de la Subrutina 
4.4 Hacer $ veces 
Dibujar 2 cuadrados de color P 
Dibujar 2 cuadrados de color S 


Siguiente vez 
Fin de la Subrutina 


Al traducir estos algoritmos al BASIC tenemos el programa: 


10 REM ESPIGDILLA 

20 INPUT "COLORES";P1,S1 

30 ( BORRAR LA PANTALLA ) 

40 P=P1 ; s=81 

50 FOR F=0 TO 10 

60 GOSUB 200 : REM FILA TIPO 1 

70 GOSUB 300 : REM FILA TIPO 2 

80 IF (F/2-INT(F/2))=0 THEN P=S1 : S=P1 : GOTO 100 
90 P=p1 : S=8S1 ; 
100 NEXT F 

110 GOTO 110 

120 END 
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¡ 
¡ 
Al 
El 


200 REM FILA TIPO 1 ( EMPIEZA CON UN CUADRADO ) 
210 PAPER P : PRINT " "; 

220 FOR I=1 TO 7 

230 PAPER S : PRINT " "; 


240 PAPER P : PRINT O” "; 
250 NEXT 1 

260 PAPER S : PRINT "  "; 
270 PAPER P : PRINT" " 
280 RETURN 


300 REM FILA TIPO 2 (TODO RECTANGULOS ) 
310 FOR I=1 70 3 


320 PAPER P : PRINT O” "; 
330 PAPER S ; PRINT " "; 
340 NEXT 1 


350 RETURN 
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55. LA HORMIGA MAREADA 


200" 


(127,87) 


Si coges una hormiga y le lees con voz monótona, media hora es bastante, 
la guía telefónica, al dejarla en el suelo es incapaz de seguir un camino recto 
más de veinte pasos; es más, el rumbo tras esos pasos, los que sean, es total- 
mente impredictible (la situación es muy parecida a la que se produce cuando 
un neutrón a alta velocidad intenta atravesar una pared metálica y choca con 
los átemos que la forman). 


Para evitar torturar a ninguna hormiga, hemos simulado su camino en la 
pantalla de un ordenador. Situamos la hormiga en el punto de coordenadas 
127,87 (TX y TY) y el tiempo en cero minutos (líneas 30 y 40): generamos 
aleatoriamente el número de pasos que va a recorrer en línea recta, R, y el 
ángulo A de esa recta con la horizontal (línea 50). Ese desplazamiento se 
traduce en un incremento horizontal, X, y otro vertical, Y; la hormiga en el 
minuto T +1 ha pasado a estar gn TX +X,TY + Y (línea 70) Si no se ha salido 
de la pantalia (su posición sigue estando entre 0 y 255 en horizontal y entre 
0 y 175 en vertical (línea 80)), se dibuja el segmento que va de la posición 
anterior a la nueva (linea 90), y se repite el proceso; si se salió, nos indicará 
cuántos minutos ha tardado. 
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10 REM HORMIGA MAREADA 

20 ( BORRAR LA PANTALLA ) 

30 PLOT 127,87 

40 T=0 : TX=127 : TY=87 : PI=3.1416 

50 R=20%RND : A=2*PI*RND 

60 X=R*COS(A) : Y=R*SIN(A) 

70 TX=TX+X : TY=TY+Y ; T=T+1 

30 1F (TX<0) OR (1X>255) OR (TY<0) OR (TY>175) TH 
EN 110 

90 DRAW X,Y 

100 GOTO 50 

110 PRINT "HA TARDADO ";T;" MINUTOS EN SALIR" 
120 END 
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56. 


ESCUDO 


Programa el dibujo de un escudo cuartelado. 


Se aman cuartelados los escudos divididos en cuatro partes, como indica 
la figura. 


Los puntos tienen las coordenadas siguientes: 


€ O E A(185,65) 
i B(185,165) 
i C (65,165) 
i D(65,65) 


H(65,85) 
A 1 (185,85) 


É 
i E(125,65) 
$ F(125,5) 
H ' (125,165) 
É 


Es muy fácil unir reediante segmentos rectilíneos los puntos que se indican. 
La única excepción se encuentra en la parte inferior, donde los puntos D, 


Fy 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
129 
130 
140 


Á se unen empleando una semicircunferencia de centro en E. 


REM ESCUDO CTUARTELADO - LINEA 
( BORRAR LA PANTALLA ) 

PLOT 185,65 
DRAW 0,100 
DRAW -120,0 
DRAW 0,-100 

FOR A=3.1416 TO 2*3.1416 STEP 0.01 
PLOT 125+60*C08(4),65+60*SIN(A) 
NEXT A 

PLOT 125,5 

DRAW 0,160 

PLOT 65,85 

DRAW 120,0 

END 


Este programa nos da el dibujo en línea, marcando sólo el borde del escudo 
y la separación entre los cuarteles, 


Si queremos el dibujo en color, hemos de elegir el color del fondo de la 
pantalla y el de las lineas que dibujamos, ¡lenando Jos cuarteles con estas líneas, 
de manera que queden pintados del color que deseamos. Un programa que 
dibuja según hemos indicado es el siguiente: 


10 REM ESCUDO CUARTELADO - COLOR 
20 INPUT "COLORES "01,02 

30 ( BORRAR LA PANTALLA ) 

40 FOR L=165 TO 86 STEP -1 


50 INK CI 

60 PLOT 65,L : DRAW 60,0 
70 1INK C2 

80 PLOT 125,L : DRAW 60,0 
90 NEXT L 

100 FOR L=85 TO 65 STEP -1 
110 INK C2 

120 PLOT 65,L : DRAW 60,0 
130 INX C1 

140 PLOT 125,L : DRAW 60,0 
150 NEXT L 


160 FOR L=64 TO 5 STEP -1 
170 M=60*c0S(ASN((64-L)/60)) 
180 INX C2 

190 PLOT 125-M,L : DRAW M,0 
200 IWX Cl 

210 PLOT 125,L : DRAW M,0 
220 NEXT L 

230 END 


En algunos ordenadores existe una instrucción que permite cubrir con un 
calor una zona cerrada por una curva, Si tu ordenador es de ésos y, además, 
esta orden es compatible con la alta resolución (lo habitual es que esto no su- 
ceda), entonces podrias colorear fácilmente los cuarteles prolongando el pro- 
grama primero. 


(*) La instrucción DRAW 5,6 dibuja un segmento que va, desde el punto 
en que nos encontremos, hasta otro situado cinco puntos a la derecha y 6 
más arriba. Mientras que DRAW --3,-2 dibuja un segmento que va, desde 
donde nos encontremos, hasta otro punto situado tres puntos a la izquierda y 
dos más abajo. 


57. FLOR DE CIRCUNFERENCIAS 


Dibuja flores con circunjerencias. 


Es muy fácil hacerio empleando la orden CIRCLE, o una análoga, pre- 
sente en muchos micros. 


Seguramente lo más simple es suponer una circunferencia imaginaria, cuyo 
centro va á ser para nosotros el de la pantalla, y cuyo radio variaremos cada 
vez que ejecutemos el programa. Podemos situar sobre esta circunferencia 
imaginaria un cierto número de puntos, con la condición de que cada uno 
diste del anterior lo mismo que del siguiente. A continuación tomamos estos 
puntos como centros de otras tantas circunferencias, los pétalos de la Mor, 
cuyo radio también habrá que fijar. : 


Si los centros de los pétalos están uniformemente distribuidos sobre la 
circunferencia, y son N, cada uno distará del anterior un arco igual a toda 
la circunferencia partido por N (IA =2*r/N, líneas 50 y 90). Esto quiere decir 
que, si al radio de la circunferencia imaginaria que va al centro de un pétalo, 
le giramos 1A, entonces tenemos el radio que va al centro del pétalo siguiente. 


(127,87) 
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10 REM FLOR DE CIRCUNFERENCIAS 

20 INPUT "NUMERO DE CIRCUNFERENCIAS";3N 
30 INPUT "RADIO PRINCIPAL";R1 

40 INPUT "RADIO DE LOS PETALOS";R2 

50 IA=2*3.1416/N : AN=0 

60 ( BORRAR LA PANTALLA ) 

70 FOR P=1 TO N 

80 A=127+RIF*COS(AN) : B=87+RÍI*SIN(AN) 
90 CIRCLE A,B,R2 

100 AN=AN+IA 

110 NEXT P 

120 END 


58. HAZ DE RECTAS 


Llamamos haz de rectas de vértice en el punto (C1,C2), al conjunto de 
todas las rectas del plano que pasan por este punto. ¿Cómo representar un haz 
de rectas en la pantalla de un ordenador? 


La contestación es muy sencilla: no 'se puede. No se puede porque el nú- 
mero de rectas de un haz es infinito y representariamos todo el plano; además, 
cada una es infinita y no cabe en la pantalla. 


Lo que sí podemos hacer es dibujar trozos de algunas de las rectas del 
haz. En particular, vamos a dibujar segmentos en cuya mitad esté el vértice 
del haz. También les vamos a pedir que los ángulos que formen las rectas 
contiguas sean iguales. 


Queda claro que los segmentos que cumplen estas condiciones son diáme- 
tros, igualmente separados unos de otros, de una circunferencia imaginaria de 
centro en el vértice del haz. Si, por ejemplo, la longitud de los segmentos es 
10, la circunferencia tendrá radio $ (linea 30). 

Vamos a buscar N puntos, tantos como rayos del haz queramos representar, 
uniformemente separados sobre media circunferencia (línea 80) y los uniremos 
con los diametralmente opuestos (línea 90). 

La línea 110 muestra cómo se aumenta el ángulo que forma con la hori- 
zontal, el radio de uno de los puntos empleados; así obtenemos el punto 
siguiente. 
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10 REM HAZ DE RECTAS 


20 INPUT 
30 INPUT 
GAS )"3R 
40 INPUT 
50 INPUT 
TAL"GA : 


"COORDENADAS DEL CENTRO";C1,C2 

"LONGITUD DE LOS SEGMENTOS ( 030 NO TE SAL 
z ResR/2 

"NUMERO DE SEGMENTOS";N 

“ANGULO QUE FORMÁN EL PRIMERO Y LA HORIZON 
A=A%3.1416/180 


60 1I4=3,1416/N 
76 ( BORRAR LA PANTALLA ) 


80 FOR 1= 


1 TO KN 


90 Xi=C1+RFCOS(A) : YI=C24+RFSIN(A) 
100 X2=C1=R*COS(A) : Y2=C02-R*SIN(A) 
110 PLOT X1,Y1 ; DRAW X2-X1,Y2-Y1 
120 A=A+IA 

130 NEXT 1 


140 END 
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59, POLIGONO REGULAR 


Deseamos trazar polígonos regulares de cualquier número de lados, con cen- 
tro en cualquier lugar de la pantalla, de radio (segmento que une el centro con 
un vértice) arbitrario y de manera que se pueda elegir también el óngulo que 
forman la horizontal y el primer radío. 


Igual que en Flor de Circunferencias, se trata de tomar puntos uniforme- 
mente separados sobre una circunferencia auxiliar. En la línea 60 se obtiene el 
arco de separación de los vértices, En la 70 sé calculan las coordenadas del 
primer vértice, que no tiene por qué estar sobre un radio horizontal. Ya sólo 
falta unir los vértices del poligono. Como estamos sobre una circunferencia, 
el primer vértice es también el siguiente al último. 


10 REM POLIGONO REGULAR 

20 INPUT "NUMERO DE LADOS"¿N 

30 INPUT "COORDENADAS DEL CENTRO”;C1,C2 

40 INPUT "RADIO";R 

50 INPUT "ANGULO DEL PRIMER RADIO Y LA HORIZONTAL"; 
A ; A=A*3,1516/180 

60 14=2%3,1416/N 

70 X1=C1+R*COS(A) ; Y]=C2+RYSIN(A) 

80 ( BORRAR LA PANTALLA ) 
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90 PLOT X1,Y1 


100 
110 
120 
130 
140 
150 
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FOR I=A+IA TO A4+2%3,1416+IA STEP IA 
X=CI+RFCOS(TI) : Y=C2+RFSINCI) 

DRAW X-X1,Y-Y1 

Xl=X : Yl=Y 

NEXT 1 

END 


60. ESTRELLA 


Prepara el ordenador para dibujar estrellas de cualquier tamaño, en cualquier 
lugar, y con cualquier número de puntas. Además, el radio que va del centro de 
la estrella a la primera punta ha de poder fijarse a voluntad. 


Supongamos que ya hemos elegido dónde queremos situar el centro y a qué 
4 distancia de éste han de estar las puntas del tipo P y las del tipo Q. A estas 
distancias las Hamaremos RÍ y R2, respectivamente. 


Al punto P le podemos llamar punta exterior y a Q punta interior. Re- 
sulta que cada punta interior está en la bisectriz del ángulo determinado por 
los radios que van a dos puntas externas consecutivas. Sí las puntas externas 
están homogéncamente separadas, las internas también lo están. 


El problema es totalmente análogo al de dibujar poligonos, con la salvedad 
de que ahora los puntos que hemos de unir están situados alternadamente 
sobre dos circunferencias concéntricas. 
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Se dibuja la primera punta exterior de la estrella, y luego se aumenta en 
T/N el ángulo del radio que sitúa la punta (=/N es lo mismo que 21/2N, ten 
en cuenta que hay N vértices interiores y N exteriores). Se une la primera 
punta con la primera interior, o al revés (líneas 140 y 170); y así sucesivamente, 
siempre recordando cuál era la anterior (líneas 150. y 180). 


10 REM ESTRELLA 
20 INPUT "NUMERO DE PUNTAS";N 

30 INPUT "COORDENADAS DEL CENTRO";C1,C2 

40 INPUT "RADIO MAYOR"¿R1 

50. INPHT "RADIO MENOR"¿R2 

60. INPBT "ANGULO QUE FORMAN EL RADIO DE LA PRIMERA 
PUNTA Y LA HORIZONTAL"5A 

70 AA*3.1416/180 : 1A73.1416/N 
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80 ( BORRAR LA PANTALLA ) 
90 X=C1+RIXCOS[(A) 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 


PLOT X,Y 
FOR I=i TON 
AFA+IA 
X1=C1+R2*C08(4) 
DRAW X1-X,Y1-Y 
X=x1 : Y=Y1 
X1=C01+R1*COS(A) 
DRAW Xi-X,Y1-Y 
A=X1 : Y=Y1 
NEXT 1 

END 


Y=C2+RIFSIN(A) 


: Yi=C2+R2*SIN(A) 
A=A+TA 


Yl=C2+RI*SIN(A) 
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61. CLAVOS Y CUERDAS 


Bay unos cuadros de tipo geométrico que se fabrican con clavos y cuerdas. 
Los clavos se reparten homogéneamente sobre una circunferencia imaginaria, y 
se une cada uno de ellos con todos los demás empleando cuerdas finas. Prepara 
tu ordenador para que haga dibujos de este tipo. 


El ejercicio es muy fácil y sin embargo te va a permitir impresionar a todos 
tus conocidos. Es igual que el del Poligono, la única diferencia estriba en que 
desde cada vértice (linea 60) has de trazar segmentos a todos los demás (1 
nea 80). 


Te recomendamos usar un número impar de vértices. Mira qué pasa si no 
lo haces. 


Si quieres puedes interrumpir el dibujo antes de que esté completo (ver 
figura), a veces el resultado merece la pena. 


10 REM CLAVOS Y CUERDAS 
20 INPUT "NUMERO DE VERTICES"¿N 

30 INPUT "RADIO"¡5R 

40 1A4=2%*3,1416/N 

50 A=0 

60 FOR V=1 TO N 

70 FOR 1I=1 TO N-1 

80 X1=127+R*COS(A) : Y1=87+R*SIN(A) 

90 PLOT X1,Y1 

100 X2=127+R*CO8(A+(TAFI)) : Y12=87+R*SIN(A+(TA*T)) 
110 DRAW X2-X1,Y2-Y1 

120 NEXT 1 

130 A=A+IA 

140 NEXT Y 

150 END 


62. ESPIRAL 


Programar la espiral de Arquímedes. 


Hay varios tipos de espirales. La más conocida es la de Arquímedes: cada 
vuelta que da la curva alrededor de su centro hace que los puntos se alejen una 
cantidad constante P, a la que llamamos paso. Si con un ángulo de 45 un 
punto de la espiral dista 4 unidades del centro, y el paso es 9, con un ángulo 
de 405 el punto correspondiente distará 4+9 del centro, y con 765 dis- 
tará 44949, 


Vamos a representar los puntos de la espiral desde que distan Ri del cen- 
tro, hasta que distan R2. Suponemos el radio inicial horizontal, pero ¿qué 
ángulo formará con Rl el radio final, R2? Muy sencillo: si en 360 (o 2x ra. 
dianes) el radio de la espiral pasa de Rí a R1+P, entonces para aumentar 
360' A felméjor, a 
radianes), al que hemos llamado ángulo total AN. 


de Ri a R2 necesitará un ángulo de 


Le pedimos al ordenador que en cada giro total dibuje 4«(R1 +R2) puntos. 
Si te parecen muchos, puedes disminuir el denominador de la fórmula que 
calcula LA, incremento del ángulo línea 50), y al disminuir el denominador 
aumentan los saltos de un punto al siguiente, disminuyendo el número de puntos 
dibujados. 


El primer punto que hemos dibujado está a la derecha del centro, a dis- 
tancia RI. A partir de éste, hemos de considerar que si en una vuelta (27 radianes) 
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R aumenta en P, en ÍA radianes (diferencia entre el ángulo asociado al radio 
de un punto y el asociado al radio del siguiente) R ha de aumentar propor- 


lA=P 
2% nea 90). 
2a 


cionalmente en 


10 REM ESPIRAL 

20 INPUT "COORDENADAS DEL CENTRO";C1,C2 

30 INPUT "RADIOS INICIAL Y FINAL"¿R1,R2 

40 INPUT "PASO";P 

o 5 AN=2%3,1416*(R2-R1)/P : 14=3.1416/(2%*(R1+ 
R2 

60 X=CI+R : Y=02 

70 ( BORRAR LA PANTALLA ) 

80 PLOT X,Y 

90 FOR T=0 TO AN STEP IA 

100 R=R+IA*P/(2%*3,1416) ; X=C1+RECOS(T) : Y=C2+R*SI 
NT) 

110 PLOT X,Y 

120 NEXT T 

130 END 


63, TREBOL 


Prepara un programa que permita dibujar tréboles de cuatro hojas. 


Podemos considerar un trébol de cuatro hojas cónstituido por cuatro arcos, 


cada uno de ellos igual a tres cuadrantes de circunferencia, 


180 


Las hojas tienen como principio y fín los siguientes ángulos: 


Pétalo 


1 


2 
3 
4 


Resulta que si a los ángulos del principio y del fin de una hoja les suma- 
mos 90", tenemos los de la siguiente. Si giramos el centro de la hoja 90” alre- 
dedor del centro del trébol, tenemos el centro de la hoja siguiente. Así pues, 
podemos representar las cuatro hojas empleando una sola expresión. 
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Principio 


90 
0 
90 
180 


Fin 
180 
270 
360" 
450" 


10 REM TREBOL 
20 LET Pl=3.1416 : LET A=-—PIJ2 : LET B=PI : LET CH=PI/4 

30 (BORRAR LA PANTALLA) 

49 FOR H=1 TO 4 

50 LET Cl=127+40:SQR(2*COS(CH) : LET C2=87+40:SQR(2)*SIN(CH) 
60 FOR T=A TO B STEP 002 

70 PLOT Cl+40+COS(T)C2+40SIN(T) 

80 NEXT T 

9% LET CH=CH+P12 : LET A=4+P1/2 : LET B=B+P1/2 

100 NEXT H 

110 END 
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6. GESTION 


64. FACTURA 


En una tienda especializada en la venta e instalación de moquetas desean ima 
rutina de facturación. Cobran las ventas por metros cuadrados, según la calidad 
elegida, más un extra de 200 pras/m* por longitud del borde de la pieza encargada, 
que ha de rematarse para evitar que se deshaga, más 150 ptastm* por instalación. 
Además, como reclamo, hacen un 10% de descuento sobre el total. 


Hemos preparado un programa que exhibe la factura en la pantalla del 
ordenador, como indica la figura. 


FACTURA 


PRECIO M2. 380 


DIMENSIONES 5 K 4.2 


PRECID 7asa 
REMATE 36808 
INSTALACION 3159 
TOTAL 13810 
DESCUENTO 1381 
A PAGAR 


GRACIAS PUR SU COMPRA 
Para obtener esta factura hemos recurrido al siguiente programa: 


10 REM FACTURA 

20 INPUT "PRECIO/M2";5P 

30 INPUT "DIMENSIONES";L,A 

100 ( BORRAR LA PANTALLA ) 

110 PRINT TAB(13)¿"FACTURA” + 
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rm 


120 
130 
140 
150 
160 
170 
180 
190 
200 
331 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 


PRINT *- 
PRINT O: PRINT "PRECIO M2.";TAB(12);P 

PRINT : PRINT "DIMENSIONES";TAB(12);L;"X";4 
PREPFLAA 

PRINT ; PRINT "PRECIO";¡TAB(28-LEN(STRS(PR)))¿PR 
RE=2*(L+4)*200 . 

PRINT : PRINT "REMATE";TAB(28-LEN(STRÍ(RE)))¿RE 
I=L*A*150 

PRINT : PRINT "INSTALACION”;TAB(28-LEN(STR$(1)) 


PRINT TAB(20) ;” —_ _—_——" 

T=PR+RE+I 

PRINT : PRINT "TOTAL"¿TAB(28-LEN(STR$CT)))¿T 
D=T*0.1 Ñ 
PRINT ; PRINT "DESCUENTO”;TAB(28-LEN(STR$(D)));D 
PRINT TAB(20);" ———A——-" 

PA=T-D 

PRINT : PRINT "A PAGAR";TAB(28-LEN(STRÍ(PA)));PA 
PRINT : PRINT TAB(5);"GRACIAS POR SU COMPRA" 
GOTO 300 

END 


65. CAMBIO DE DIVISAS (8.6) 


Haz un programa sobre cambio de moneda extranjera, que pueda facilitar 
la tarea del empleado bancario encargado de este departamento. 


Hemos introducido en líneas DATA los nombres de las principales divisas 
y sus cambios comprador y vendedor. 


El programa comienza volcando en tres variables de índice todos los datos: 
ARG) es el nombre de la divisa, C(1) es el cambio comprador y V(I) el cambio 
vendedor. Se aprovecha el propio bucle de lectura para presentarnos los nom- 
bres de las divisas. 


Después, a través de INPUT, se pregunta la divisa que se desea cambiar y 
si se trata de comprarla o de venderla. En las líneas 130 y 140 se calcula el 
caso de comprar divisas y en las líneas 160 a 180 el caso de la venta. 


Este programa exige que todos los días que se quiera utilizar se actualicen 
los datos de las líneas 190 a 270, Una observación: que las palabras no lleven 
a confusión. Cuando se dice cambio comprador, es que el Banco compra (noso- 
tros vendemos), y de igual manera el cambio vendedor lo es para el Banco (para 
nosotros es una compra). Por eso en la línea 140 aparece la variable VEN), 
y en la 180 la C(N), y no al revés, 


10 REM CAMBIO DE DIVISAS 

20 (BORRAR LA PANTALLA) 

30 DIM AÑIN CUT VAD 

30 FOR I=1 TO 17 

50 READ ASD.COVO 

60 PRINT L:A$( 

70 NEXTA 

80 PRINT 

90 INPUT “QUE DIVISA QUIERES (EL NUMEROJ'¿N 

100 (BORRAR LA PANTALLA) 

110 INPUT “COMPRAS DIVISAS (1) O LAS VENDES (2)'Z 
120 1F 2-2 THEN 160 

130 INPUT “CUANTAS PESETAS QUIERES CAMBIAR”;X 
140 PRINT “POR":X:“PESETAS TE DOY” X/VIN)¡A$ON) 

150 GOTO 280 

160 PRINT “CUANTOS/AS "¡AS(N):" QUIERES VENDER”; 
170 INPUT X 

180 PRINT “POR”":X;:A$(N)* TE DOY”:X*C(N):“PESETAS" 
190 DATA DOLARES US.A..151.77,152.12,DOLARES CAN,122.83,123.27 
200 DATA FRANCOS F.18.76,18.81.LIBRAS EST.224.50,225.64 


191 


192 


DATA LIBRAS 1R1;178.33,179,36,FRANCOS $,69.75,70.07 
DATA FRANCOS B,2818,2830,MARC0S,56.43,56.67 
DATA LIRAS,.0953,.0956,FLORINES,50.48,50.68 

DATA CORONAS 5,19.25,19.32CORONAS D,15.70,15.76 
DATA CORONAS N,20.21,20.28,MARCOS FIN,26.47,26.58 
DATA CHELINES A,8.013,8058,ESCUDOS,1.233,1.238 
DATA YENS,.620,.623 

END 


66. EL RECIBO DE LA LUZ (4.30) 


¿Conoces las operaciones mediante las cuales las empresas eléctricas calculan 
el recibo de la luz de tu casa? Este programa calcula el recibo de la electricidad 
para la tarifa de “alumbrado doméstico” (A2), con los precios y disposiciones 
vigentes en 1983. 


En las líneas 20 y 30 se asignan las tarifas actuales a las variables del 
programa: 


: factor de potencia. Importe por cada Kw contratado. 

: precio del Kwh del primer bloque. 

: precio del Kwh del segundo bloque. 

: alquiler de los equipos de medida. 

impuesto municipal del 1,5% sobre los tres primeros apartados. 
22 LG.T.E. del 1,57% sobre los tres primeros apartados. 

: canon de 0,27 pesetas por Kwh consumido. 


Con estos precios, los únicos datos necesarios para hacer la factura son la 
potencia contratada y el consumo en el período bimensual; y se ha obtenido , 
el siguiente resultado: 4 


POTENCIA CONTRATADO Y COMEUMO DE ENERGIA 
TS, 1568 


1558 


La primera cantidad, 2211, se caícula en la línea 60. Viene a continuación 
la distinción de los dos bloques: el primer bloque incluye hasta un máximo de 
180 horas de utilización, es decir, la potencia contratada multiplicada por 
180, que en este caso resulta 990 Kwh. Si el consumo no llega a 990, se factura 
todo en el primer bloque; si excede ese valor, el exceso se factura en el segundo 
bloque con una tarifa algo más reducida. En este caso 578 Kwh se facturan en 
el segundo bloque. 


A continuación se factura el alquiler del contador, que es una cantidad cons- 
tante, y los impuestos, descritos ya al explicar las variables OC, TE y CA. 


El programa utiliza al final, en las líneas de impresión de resultados, la 
función TAB, así como el redondeo a pesetas sin céntimos. El argumento de la 
función TAB en las lineas 180 a 260 parece complicado. No lo es tanto, tiene 
por objeto que las cifras de los distintos conceptos se alineen por la derecha, 
a la columna 26, con independencia de que se trate de cifras de 3, 4 u otro 
número de dígitos. 


10 REM RECIBO DE LA LUZ 

20 PT=402 : K1=6.63 : K2=5,67 

30 EM=134 : OC=015 : TE=0157 : CA=27 

40 PRINT “POTENCIA CONTRATADA Y CONSUMO DE ENERGIA” 

50 INPUT PCE 

60 PO=PO*PT 

70 A=PCx*180 

80 IF E<>A THEN 120 

90 El=A 

100 E2=E-—El 

110 GOTO 130 

120 El=E 

130 REM REDONDEO E IMPRESION DE RESULTADOS 

140 PRINT : PRINT : PRINT 

150 PRINT TAB(S)TART':TAR(12)"CONSUMOS” 

160 PRINT TAB(S);“A2";TAB(1S);E 

120 PRINT : PRINT 

180 PRINT “T.POT*:TABIM;PCX” 

190 PRINT“KWHI".TABIDELX 

5) 

200 IF E2=0 THEN PRINT : GOTO 220 

e PRINTKWR2":TAB(T):E2X”¡K2:TAB(26-—LEN¡STRÉ(INTIE2+K2 +. 5) INT(E25K2+ 

E) 

220 PRINT “E.MEDIDA”¡TABO6-LEN(STRKEM));EM 

230 Z=INT(PO+ 54 INT(Eb«K1 4.5) + INT(E2:K24.5) 

Pe co “OTROS CONCEPTOS FACT.":TAB(26- LENISTRÍ(ENTIZ+OC + 5): INT(Z+ 
+. 

250 PRINT “LG.T.E¡TAB6—LEN(STRUINTZ*TE + SI): INT(ZTE +.5) 

260 PRINT “CANON”;TAR(7);E*X”¡CA¡PAB(26— LEN(STRKINTE*CA + 5)):INT(E*CA + 


3) 

270 PRINT : PRINT 

e Ea “IMPORTE TOTAL”;Z + EM + INT(Z+0C +.5)+ INT(Z+TE +5) + INTIExCA +5) 
290 END 


PT:TAB(26—LENISTRÍINT(PO + 5)):INT(PO +5) 
LTAB(26-— LEN(STRÍÓNTIE be DIANTE 
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67. ANUALIDAD CONSTANTE 


Hazun programa que calcule la anualidad constante para amortizar un crédito, 
abonando también sus intereses. 


Supongamos que José García obtiene un crédito de 100.000 pesetas a 
amortizar en 5 años y con un 15% de interés. Las cantidades que deberá 
reintegrar cada año en concepto de amortizaciones e intereses aparecen en el 
siguiente cuadro: 


CREDITO 


AÑO  AMORTIZACION INTERES TOTAL POR 
AMORTIZAR 
1] 20.000 15.000 35.000 80.000 
2 20.000 12.000 32.000 $60.000 
3 20.000 9.000 29.000 40.000 
4 20.000 6.000 26.000 20.000 
5 20.000 3.000 23.000 — 
100.000 45.000 145.000 


El interés del primer año es sobre 100.000 pesetas, pero en los años suce- 
sivos va disminuyendo a medida que se amortiza el capital. Esto produce una 
“injusticia” pues al principio, cuando acaba de obtener el crédito, es cuando 
raás debe pagar, mientras que en el quinto año, con la peseta muy deváluada, 
el pago es mucho menor. 


Vamos a obtener una fórmule que haga que José García pague todos los 
años la misma cantidad: una anualidad constante. Para ello, y dado que los 
intereses varian, habrá que hacer variar las amortizaciones. 

Si se toma el interés en tanto por uno, la anualidad constante tiene como 
expresión: 

14 1 
A=C- A 
(+ D-1 
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Siendo 1 el interés, n el número de años y C el crédito. 


El proceso de cálculo es el siguiente: a la anualidad constante (A) se le 
resta el interés del primer año (1N ==C- 1) y se obtiene la amortización del primer 
año (AN =A—IN). 


El segundo año el interés no se calcula sobre €, sino sobre CN=C-—AN, 
pues una parte ya se ha amortizado. Ahora IN=CN-1, De nuevo la amortiza- 
ción es la diferencia entre la anualidad constante y el interés (AN=A —IN). 
Así debe continuarse hasta el último año, en el que CN— AN debe resultar cero, 
pues se amortiza definitivamente el crédito. En el ejemplo citado se obtendría 
el siguiente cuadro: 


AÑO  AMORTIZACION INTERES TOTAL CAPITAL 
1 14831.56 15000 29831,56 85168.44 
2 17056.29 1277527 29831.56 6811216 
3 19614.73 10216.82 29831.55 4849742 
4 22556.94 7274.61 29831.55 25940.48 
5 25940.48 3891.07 29831.55 0 

100000 49157.17 149157.17 


En él se observa que la suma de todas las amortizaciones es igual al 
crédito obtenido, y así el capital final es cero. Podemos apreciar cómo se ajustan 
las amortizaciones e intereses de cada año para que la cantidad anual abonada 
sea constante. 


El siguiente programa proporciona el cuadro general con las tres variables 
apuntadas: interés, número de años y crédito. Para mayor sencillez no imprime 
la suma final. 


10 REM CALCULO DE LA ANUALIDAD CONSTANTE 
20 PRINT TAB(5);PEFÍCION DE DATOS" - 

30 PRINT : PRINT 

49 INPUT “IMPORTE DEL EDITO":C 

50 INPUT “CUANTOS AÑOS”:N 

€0 INPUT “INTERES EN TANTO POR CIENTO" 

20 E=1/100 

80 A=Cx1(14 D1N/(041)PN—1) 

S0 REM TITULARES 

100 PRINT “AÑO”/TAB(5):"AMORTIZ”:TAB(15):"INTERES”; 
110 PRINT TAB(25):“TOTAL"¡TAB(G4)“CAPITAL” 
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120 PRINT 
130 REM PROCESO ITERATIVO 

140 CN=C 

150 FOR K= TO N 

160 IN=CNxI 

170 AN=A-IN 

180 CN=CN-AN 

190 REM REDONDEO E IMPRESION 

200 X=INT(AN=100+.5)/100 

210 Y == INT(IN+1004.5/100 

220 Z=INT(CN+100+-5)/100 

230 PRINT K:TAB(H:X TAB()Y;TAB(23):X + Y :TAB(33):Z. 
240 NEXT K 

250 END 
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68. VENTA DE BILLETES (6.38) 


Una empresa de transporte de viajeros por carretera sirve la línea Madrid- 
Toledo, con paradas intermedias en Getafe, Parla, Torrejón, Illescas, Cabañas, 
Yuncos y Olías. El precio por km es de 3,50 pesetas, y además los viajeros que 
utilicen las estaciones de Madrid o Toledo deberán abonar un canon de 5 pesetas. 
Supondremos que no hay limitación de plazas. Las salidas serán cada hora y media, 
desde las 8 h a las 21,30, y simultáneamente desde los dos extremos de la línea. 
La empresa necesita un programa que, tras preguntar el trayecto, día y pares: 
imprima el siguiente billete: 


TRAYECTO |] 


FECHA HORA 


KM 


PRECIO POR KM 


PRECIO 


El siguiente algoritmo lineal resuelve el problema: 


Inicializar las variables 

Dibujar la pantalla del vendedor 

Introducir los datos del billete, cuidando que no coincidan origen y extremo 
Calcular la distancia y el precio 


Imprimir el billete 
Fin 


Veamos cómo se traduce en este caso. 


Para el empleado que despache los billetes, lo más cómodo será tener en 
pantalla los nombres de las poblaciones en las cuales la línea tiene parada, un 
número al lado de cada uno, y pulsar los números correspondientes en lugar 
de escribir dos nombres cada vez que le pidan un billete. Como además, el 


198 


precio del billete depende de la distancia recorrida, hemos dispuesto en instruc- 
ciones DATA los nombres de las poblaciones y, entre ellas, las distancias que las 
separan. Asi el ordenador puede formar la tabla Tf, como sigue: 


MADRID 13 
GETAFE 9 
PARLA 5 
TORREJON 8 
ILLESCAS 4 
YUNCOS pS 
CABAÑAS 8 
OLIAS 12 
TOLEDO 0 


En ella figura, al lado de cada población, la distancia que media entre ésta 
y la siguiente. En pantalla aparecerá la columna de poblaciones seguida de 
una columna de números. Cuando alguien pida un billete, el vendedor pulsará 
los números correspondientes a origen y destino, comprobando el ordenador 
si la petición es absurda. L1 y L2 son los nombres de las variables que “re- 
cuerdan” estos valores. Posteriormente se indican el día, Df), y la hora, H$. 


Luego se calculan la distancia entre origen y destino, DI, y el precio provi- 
sional, PR. Para conocer el definitivo habrá que saber si origen, destino o ambos 
coinciden. con lugares en los cuales haya que pagar el canon de estación. La 
variable L es utilizada como variable auxiliar para el cálculo de la distancia. 


Hemos supuesto que el lector carece de impresora; por ello la subrutina 500 
escribe en pantalla el billete. Si el amable lector fuese, además, afortunado 
poseedor de una flamante impresora, podría conservar en pantalla la lista de 
poblaciones e imprimir simultáneamente el billete. 


10 REM VENTA DE BILLETES 

20 DATA MADRID,13,GETAFE,9,PARLA,5,TORREJON,8,ILLESC 
AS,4 

30 DATA YUNCOS,11,CABAÑAS,8,OLIAS,12,TOLEDO,O 
100 GOSUB 200 : REM INICIALIZAR 

110 GOSUB 300 ; REM PANTALLA 

120 GOSUB 400 : REM DISTANCIA Y PRECIO 

130 C0SV3 500 ; REM BILLETE 

140 END 

200 DIM TS(9,2) 

210 FOR I=1 TO 9 

220 FOR J=1 TO 2 : READ T$(1,J) : NEXT 3 
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230 
240 
250 
300 
310 
320 


NEXT 1 

PR=0 : DI=0 

RETURN 

( BORRAR LA PANTALLA ) 

PRINT : PRINT 

FOR 1=1 TO 9 : PRINT TAB(2)3T$(1,1);TAB(17);1 : 


PRINT : NEXT 1 


330 


520 


PRINT : PRINT 

INPUT "ORIGEN ";L1 

1F (L1<1) OR (L1>9) THEN PRINT "ERROR” ; GOTO 340 
INPUT "DESTINO ",L2 

TY (12<1) OR (12>9) OR (12=L1) THEN PRINT "ERROR 
GOTO 360 

INPDT "DIA "¿DS : INPUT "HORA "¿HS 

RETURN 

REM DISTANCIA 

1F L1>L2 TEEN L1>=L1 : Ll=L12 ; L2=L 

FOR L=L] TO 12 : DISDI+VAL(T$(L,2)) 3 NEXT L 

REM PRECIO 

PR=DIF*3.5 

1F Ll=1 THEN PR=PR+5 

IF L2=9 THEN PR=PR+5 

RETURN 

( BORRAR LA PANTALLA ) 


) PRINT : PRINT 


PRINT TAB(3);"TRAYECTO"¿TAB(12);7$(11,1);TAB(21) 


¿Ue Ts(L2,1) 


530 


PRINT : PRINT TAB(2);"FECRA";TAB(9);D9;TAB(20);" 


HORA"¡TAB(25)3H9 ; PRINT 


540 PRINT TAB(3)"KMS";TAB(7);DI¿TAB(17); "PRECIO"; TA 
B(24);PR 

550 PRINT : PRINT TAB(6);"PRECIO POR KM 3.50" 

560 RETURN 
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69, TAQUILLA AUTOMATICA (4.24) 


Un ordenador controla el número de plazas libres en un autobús de 40 plazas. 
A medida que la gente va pidiendo uno ovarios billetes quedan menos plazas 
libres. Si, por ejempio, alguien pide cinco plazas y sólo quedan tres, contesta 
con el siguiente mensaje: “No tengo tantas plazas. Sólo me quedan tres. ¿Le 
interesan?” Cuando el autobús esté completo saca el mensaje de “COMPLETO” 
y se termina el programa. 


En la variable VT recogemos la venta total y en VP la última venta par- 
cial. El número de billetes existentes en cada momento es P=40-—VT. 


El siguiente organigrama ¡lustra el proceso. 


PRINCIPIO. 


BILLETES QUE 
SE PIDEN: 
ve 


201: 


10 
20 
30 
40 
50 
60 
70 
UNA 
80 
90 
100 
210 
110 
120 
130 
140 
150 
160 
170 
180 
200 
190 
200 
210 
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REM TAQUILLA AUTOMATICA 

vI=0 : vP=0 

( BORRAR LA PANTALLA ) 

VI=VY1+VP : P=40-VI 

FOR I=1 TO 10 ; PRINT : NEXT 1 

PRINT "TAQUILLA AUTOMATICA" ] 

PRINT : PRINT "SI QUIERE COMPRAR BILLETES PULSE 
TECLA" 

CET AS : 1F A$="" THEN 30 

( BORRAR LA PANTALLA ) 
IF P=0 THEN PRINT "COMPLETO. LO SIENTO" ; GOTO 


INPUT "CUANTOS BILLETES DESEA"; VP 

1F VP<=P THEN 190 

PRINT : PRINT "NO HAY TANTOS, SOLO HAY";P 
PRINT : PRINT "LE INTERESAN.(S/N)?" 

GET R$ 

TF R$<>"S" AND R$<>"N" THEN 150 

IF R$="S" THEN VP=P : GOTO 190 . 

PRINT : PRINT "LO SIENTO. ADIOS" : VP=0 : GOTO 


PRINT : PRINT "RECOJA LOS BILLETES" 
FOR 1=1 TO 3000 : NEXT 1 : GOTO 30 
END 


70. HIPER 


Un almacén con departamentos de ferretería, droguería y bebidas, tiene un 
servicio de venta a distancia para abonados. Para simplificar, vamos a suponer 
que en ninguno de sus departamentos se venden más de cuatro articulos. Cuando 
un cliente intenta comprar algo desde su domicilio, su sistema TV -microordena- 
dor-teléfono se conecta con el ordenador del almacén; el cliente teclea su nombre en 
su microordenador y el ordenador del almacén comprueba si está abonado; en caso 
afirmativo. exhibe la lista de productos del departamento que se pida, atiende el 
pedido, sí hay existencias suficientes, y actualiza la lista de éstas, 


Como los departamentos son tres, se puede pensar en tener tros tablas 
alfanuméricas distintas, de forma que en Ja fila cero de cada una ponga el nom- 
bre del departamento y en las siguientes los artículos y su cantidad. Sin 
embargo, las hojas de-papel se suelen agrupar en cuadernillos: nada más fácil 
que hacer lo mismo con estas tablas: la página uno será la de Ferretería, la 
dos de Droguería y la tres de Bebidas. A esta tabla la llamaremos tabla tri 
dimensional, y sus dimensiones serán $ (filas), 2 (columnas) y 3 (páginas). 


BEBIDAS 


+ DROGUERÍA luz 
FERRETERÍA FERRETERÍA 1 
TORNILLOS 52 TORNILLOS | 5 
[ CLAVOS 6 CLAVOS $ 
7 14 
TUERCAS 30 TUERCAS o 
GRIFOS 14 [oros 14 
L de 


Cuando llame un cliente, el ordenador comprobará si figura en el fichero 
de abonados y, en caso afirmativo, atenderá su pedido. En la pantalla de TY: 
del usuario aparecerá primero la lista de departamentos y luego la de artículos 


columnas y número suficiente de filas, P$(50,3): o bien en la primera columna 
figura el nombre de un departamento y en la tercera columma el número de 
artículos de ese departamento que hay en el pedido, o bien en la primera el 
nombre de un artículo del departamento citado y en la segunda el número de 
unidades que se solicitan. La variable N nos indica en cada momento en qué 
fila nos encontramos. Esta tabla aparecerá en la pantalla al final de la co- 
municación. 


=> "E 
Pg 1| FERRETERIA a 
+ 


2 | TORNILLOS 10 
3 | TUERCAS 10 
43 DROGUERIA 3 


| : 
sb 
Desarrollamos con detenimiento el diagrama de flujo del proceso de petición 
de departamento y de artículos, único que tiene complicación. 
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Unitades 
PENA 


si 


Actualiza 
slock 
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10 REM VENTA A DISTANCIA 
20 DATA FERRETERIA," ",TORNILLOS,52,CLAVOS,61,TUERCA 
-8,50,GRIFOS,14 

30 DATA DROGUERÍA," ",JABON,23, PERFUME, 21,INSECTICID 
A,34,TINTE,14 

40 DATA BEBIDAS,” ",ESPUMOSO,19,REFRESCO,27,GASEOSA, 
30,X,X 

50 DIM A$(4,2,3) : DIM PS(50,3) 

100 FOR P=1 TO 3 

110 FOR F=0 TO 4 

120 FOR C=1 TO 2 ¿READ AS(F,C,P) ; NEXT C 

130 NEXT F 

140 NEXT P 

200 OPEN+2 

210 ( BORRAR LA PANTALLA ) 

220 INPUT "NOMBRE "¿NS 

230 INPUTAF2,S$ : IPS$=N$ THEN CLOSEF2 ; GOTO 300 

240 IF SÍ="FIN DE FICHERO" THEN CLOSE+2 

250 PRINT " PARA ABONARSE A NUESTRO SERVICIO LLAME A 
L TENO. 8642." 

260 FOR 1=1 TO 3000 ; NEXT 1 

270 GOTO 200 

300 N=1 

310 ( BORRAR LA PANTALLA ) 

320 PRINT TAB(10);"DEPARTAMENTOS” : PRINT 

330 FOR P=1 TO 3 

340 PRINT TAB(2);48(0,1,P); 

350 FOR 1=2+LEN(A$(0,1,P))-TO 25 : PRINT ","; : NEXT 


1 

360 PRINT P 

370 NEXT P 

380 PRINT : PRINT : INPUT "QUE DEPARTAMENTO DESEA";P 

390 1F (P<1) OR (P>3) THEN 380 

400 ( BORRAR LA PANTALLA ) 

410 PRINT TAB(10);A4$(0,1,P) : PRINT 

420 POR F=1 TO 4 : PRINT TAB(2);F3"....."¡AS(F,1,P) 
NEXT F :PRINT 

430 INPUT "NO. DE ARTICULOS DIFERENTES DE ESTE DEPTO 

+ QUE DESEA";¡P$(N,3) 

460 IF VAL(P$(N,3))=0 THEN 530 

450 PS(R,1)=A$(0,1,P) 

460 FOR I=1 TO VAL(P$(N,3)) 

470 PRINT "ART.";I; : INPUT PS(N+1,1) : INPUT "UNIDA 

DES";P$(N+1,2) 

480 FOR J=1 TO 4 :IF P$(N+1,1)<>A$(J,1,P) THEN 520 

490 IF VAL(P$(N+1,2))>VAL(A$(J3,2,P)) THEN PRINT "SOL 

O HAY ";3A$(J,2,P):GOTO 470 


206 


500 A$(3,2,P)=STRS(VAL(A$(J,2,P))-VAL(PS(8+1,2))) : 
GOTO 520 

510 NEXT J 

520 NEXT 1 

530 INPUT "DESEA COMPRAR EN OTRO DEPTO. "¡0% : 1F CS 
="S1" TREN N=N+1-1:G0TO 310 

600 ( BORRAR LA PANTALLA ) 

610 FOR K=1 TO N+1 

620 FOR J=1 TO 3 ; PRINT TAB(10*JI)¿PS(R,3); : NEXT J 
630 PRINT 

640 NEXT K 

650 PRINT "MUCRAS GRACIAS, SR. "¿S$ 

700 END 
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71. ORDENACION ALFABETICA (7.17) 


Ordena alfabéticamente, por el método de intercambio, una lista de nombres. 


Los nombres van a estar asignados a la variable con indice A$(1). Me- 
diante la variable N damos el número de nombres que deseamos introducir, 
con un máximo de 100, 


El método que utilizaremos para alfabetizar la lista de nombres es el de 
intercambio, que consiste en comparar dos nombres. Si están bien ordenados, 
se pasa al siguiente nombre y si no, mediante una variable auxiliar, realizamos 
el intercambio y luego pasamos al siguiente. Para realizar la comparación 
utilizamos dos bucles anidados, uno exterior que nos recorre desde el primero 
hasta el penúltimo y el interior, que nos sirve para realizar las comparaciones. 


10 REM ORDENACION ALFABETICA 
20 DIM A$(100) 

30 PRINT “CUANTOS NOMBRES”; 
40 INPUT N 

50 PRINT “INTRODUCE LOS NOMBRES" 
60 FOR I=1 TO N 

70 INPUT ASID) 

80 NEXT 1 

90 FOR 1=1 TO N--1 

100 FOR J=1 TO N—1 

110 IF ARD)<=A3+1) THEN 150 
120 X$=A8() 

130 A$O)=AS(14-1) 

140 ARO +1)=X$ 

150 NEXT J 

160 NEXT 1 

170 PRINT “NOMBRES ORDENADOS ALFABETICAMENTE” 
180 FOR 1=1 TO N 

190 PRINT AS) 

200 NEXT 1 

210 END 
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72. ORDENACION POR INSERCION 


Vamos a ordenar de menor a mayor los números de una lista de N elementos. 


El método de inserción se usa generalmente cuando se quieren ordenar los 
nombres de una lista alfabéticamente. 


Con un ejemplo entenderemos mejor el procedimiento. Sea una lista de 
siete elementos: 


5) 7 4 1 5 9 2 
En una variable con índice L(B, guardamos la lista. 


L(1) L(2) L3) 1(4) L(5) 16) L(7) 
3 7 4 1 5 9 2 


La ordenación de la lista requiere los siguientes pasos: 


1% Secomparael primero con el segundo, que en este caso están ordenados. 


2. Ss toma L(3) y se compara con los anteriores; al ser L()<1(3), no 
se alteran sus posiciones; y como L(2)>L(3) hay que ordenarlos. Para 
ello hay que guardar 1(3) en la variable X y poner en L(3) el con- 
tenido de L(2). 


X=1(3) 
LO)=120 
L2)=X 


Efectuado el cambio, la nueva lista es: 


LO LO) L(3) 1(4) Us) 116) LN 
3 4 7 1 5 9 2 


elementos ordenados tlementos aún no ordenados 
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3.2 A continuación se compara Lí4) con los anteriores; como L(4) es menor 
que L(1), habrá que poner L(4) en lugar de L(1) y los elementos L(L), 
L(2), L(3) pasarán a ocupar las posiciones L(2), L(3), 1/4) respec- 
tivamente. 


X=L(4) 
L(4) =L(5) 

L(3)=L(2) 0 
L(2)=11(1) 

L()=X 


Tendríamos la lista: 


LD LS) 163) L(4) 1(S) L(6) LD 
dl 3 4 7 5 9 2 


elementos ordenados elementos aún no ordenados 


En todo momento la lista se compone de dos partes; una parte ordenada, 


la de la izquierda, que va creciendo a expensas de la parte desordenada. 


con 
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Los pasos 4.* y siguientes consisten en comparar los elementos L(5), L(6)... 
los anteriores, efectuando los cambios pertinentes. 


El proceso se puede representar brevemente: 


a) Comparar cada elemento, a partir de L(2), con todos los anteriores. * 


b) Si L(D<L(D, siendo J<1l pasamos al siguiente J; en caso contrario, 
tenemos que poner L(Y) antes de L(3) haciendo cambios como los expre- 
sados en (1), que dada su estructura se pueden resemir en un ciclo 
FOR-NEXT. 


Recogemos estas ideas en el organigrama adjunto. 


PRINCIPIO 


LECTURA DE LA 
LISTA 


IMPRESION DE LA 
LISTA 


DESDE ¡=2 HASTA N 


DESDE J:w1 
HASTA J-1 


IMPRESION DE 
LA LISTA ORDENADA) 


DESDE K=1 
HASTA J+1 


LL) = UK - 1) 
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10 REM ORDENACION POR INSERCION 
20 ( BORRAR LA PANTALLA ) 
30 INPUT "CUANTOS ELEMENTOS TIENE LA LISTA";N 
240 DIM L(N) 

50 FOR I=1TO N 

60 INPUT L(1) 

70 NEXT 1 

30 ( BORRAR LA PANTALLA ) 
90 PRINT "LISTA DESORDENADA" 
100 PRINT 

110 FOR I=1 TO N 

120 PRINT 1(1); 

130 NEXT 1 

140 PRIXT. : PRINT : PRINT 
150 FOR 1=2 TO N 

160 FOR J=1 TO 1-1 

170 IF L(J)<=L(1) THEN 240 
180 x=L(1) 

190 FOR K=1 TO J+1 STEP -1 
200 1(K)=L(K-1) 

210 NEXT K 

220 1(3)=% 

230 GOTO 250 

240 NEXT 3 

250 NEXT 1 

260 PRINT "LISTA ORDENADA" 
270 PRINT : 

280 FOR 1=1 TO N 

290 PRINT L(1); 

300 NEXT 1 

310 END 


73. ORDENACION POR EDADES (7.7) 


Construye un programa que pida el nombre y la fecha de nacimiento de un 
cierto número de personas (número menor que mil). Que la máquina, después de 
tratar estos datos, muestre los nombres y fechas de nacimiento, pero ordenados 
por edades, de más viejo a más joven. Te conviene escribir las fechas de na- 
cimiento con un sólo número, así: 16 de marzo de 1965=19650316, 


En la primera parte del programa, hasta la linea 130, se establece un bucle 
de entrada de datos. El bucle es capaz de leer los datos de hasta 1000 per- 
sonas. La forma de salir del bucle, de indicar que hemos terminado la intro- 
ducción de datos, es teclear el nombre ficticio “ZZZ”; de esta manera no hay 
que contar de antemano el número de datos a introducir, 


Previamente hay que dimensionar las variables AS(D) y N(D) que recibirán 
los datos, y presentar en la. pantalla las normas de funcionamiento del programa. 


Son los bucles anidados de las líneas 140 a 200 los encargados de la orde- 
nación. Ordenan las fechas de nacimiento y paralelamente los nombres respec- 
tivos. Hemos utilizado el método de ordenación por intercambio. Te aconse- 
jamos que escribas en unas octavillas las fechas de nnas pocas personas y que 
ejecutes manualmente el programa con los papelitos. (Para una explicación 
detenida del método de ordenación ver BASIC BASICO, Curso de Programa- 
ción, pág. 158.) 


10 REM ORDENACION POR EDADES 

20 (BORRAR LA PANTALLA) 

30 DIM A$(1000),N(1000) 

40 PRINT ; PRINT “INTROPUCIR LOS NOMBRES Y APELLIDOS DE” 
50 PRINT “LAS PERSONAS” 

60 PRINT “DAR LA FECHA DE NACIMIENTO EN LA FORMA” 
70 PRINT “AÑO MES DIA” 

30 PRINT “PARA TERMINAR DAR EL NOMBRE FICTICIO 222" 
90 FOR l=i TO 1000 

100 INPUT “NOMBRE”:AS(1) 

110 1% AS()="2ZZ" THEN 140 

120 INPUT “FECHA":N(D 

139 NEXT 1 

140 FOR J=1 TO 1-2. 

159 FOR K=1 TO 1-1- 

160 1F N(K)< =N(K+1) THEN 190 

Y70 X=N(K) : NK)=N(K+1) : N(K+1)=X 
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180 Bf=AR(K) : ASK) =AS[K+1) > ASK +1)=BS 
190 N E A cds 
200 NEXT J 

210 REM ESCRITURA DE LA LISTA 

220 FOR J=1 TO 1-1 

230 PRINT AÑO);TARSIN() 

240 NEXT J 

250 END 


214 


74. GEOGRAFIA ECONOMICA (9.24) 


Dada la información que figura en la tabla, hemos de preparar un programa 
que nos proporcione la lista de países ordenados de mayor a menor de acuerdo 
con uno de los siguientes criterios: 


a) Habitanies por coche. 
b) Habitantes por km?. 
e) Coches por km?. 


PAIS COCHES POBLACION SUPERFICIE 
GRAN BRETAÑA ....... 13,6- 108 559-105 244 -10% km? 
BELGICA ¿cita 2,33-10% 9,8-10* 30,5- 10? km? 
DINAMARCA .000coo0oo L2- 10% 5 «10% 43,1 - 10% km? 
FRANCIA .. 134-108 52,1- 10% 547 10% km? 
ALEMANIA FEDERAL .. 15,6-10% 62 -10% 248,6 - 107 km? 
IRLANDA ... 2. 0/4 10% 3 10% 70,3- 10% km? 
TALLA 0 ts it 12,5 - 10% 54,9 - 10% 301,2 - 10? km* 
LUXEMBURGO 0.0... 0,1- 10% 04-106 2,6- 10? km? 
HOLANDA 0000 cocos 28-106 13,4- 10% 40,8- 10% km? 


Almacenaremos en una lista, P$(1), los nombres de todos los países que 
figuran en la primera columna de la tabla. El resto de los valores de ésta 
los guardamos en una tabla numérica, T(L,J). Como las posibles ordenaciones 
no serán por los valores de ninguna de las columnas, sino según los cocientes 
de los valores de dos. de ellas, confeccionamos con esos valores una lista, L(D. 
Una vez formada L, se ordena y se exhiben los nombres de P$ reordenados 
de acuerdo con el orden de L; para evitar cambiar el orden de PkI) cada vez, 
mantenemos ésta invariante y reordenamos una copia suya, C$(D, Los datos, 
por tanto, quedan organizados de la siguiente manera: 
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P40 TL) LM [e 0) 


E - 
el 
Vamos a utilizar el siguiente algoritmo: 
1. Leer Pf y T 
2. Elegir ordenación, E (Hab/km?, Hab/coche, Coche/km?) 
3, Según sea E 
3.1. Dar valores a A y B (para formar L con los valores presentes 
en las columnas Á y B de T) 
Fin de Según 
4. Formar C$ y L 
5. Reordenar L y C$ (según L) 
6. Exhibir CY y L 
7. FIN 


El programa quedará como sigue: 


10 REM GEOGRAFIA ECONOMICA 


100 REM INICIALIZAR 
110 READ N : DIM PS(N),T(5,3),L(N),C$(N) 

120 FOR 1I=1 TO N : READ P$(1) 

130 FOR J=1 TO 3 : READ T(1,J) : NEXT J 

140 NEXT 1 

200 REM MENU 

210 ( BORRAR LA PANTALLA ) 

220 PRINT : PRINT 

230 PRINT "ELIGE DE ACUERDO CON El NUMERO" : PRINT 
: PRINT 

240 PRINT "HAB/COCHE....oooooomo.o1" : PRINT 
250 PRINT "HAB/KM2... rarcorco 2? : PRINT 
260 PRINT "COCHES/KM2....oooo...3” 3 PRINT 
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270 
ca” 
300 
400 
410 
NE 
500 
510 
520 
530 
540 
550 
560 
600 
610 


INPUT E : IF (E<1) OR (E>3) THEN PRINT "RECTIFI 
: GOTO 270 

ON E G0SVE 1100,1200,1300 

REM LISTA L, QUE PERMITE ORDENAR 

iS TON : CSCIISPSC(I) : L(1)=1(1,5)/T(1,3) 
REM ORDENACIÓN DE L Y DE LOS PAISES 

FOR 1=1 TO N-1 

FOR J=1 TO N-1 : 1F 1(J)>=L(J+1) TRENS50 

R=L(J) : L(J)=L(341) : E(J+1)=X 

XS=CHCI) 1 ¿09(J)=CS(IH1) > C$(IA1)AES 

NEXT J d 

NEXT 1 

REM EXHIBICION 

( BORRAR LA PANTALLA ) 

PRINT : PRINT TAB(3);"PAIS”;TAB(22);E% : PRINT 
FOR I=1 TO N 

PRINT TAB(1)CS(1)¡TAB(20)¿LC(1) : PRINT 

NEXT 1 


GOTO 2000 

REM VALORES PARA FORMAR L 

A4=2 : B=l ; ES="HAB/COCHE" : RETURN 
A=2 : B=3 ES="HAB/RM2" : RETURN 
Arl o: B=3 ; ES="COCHES/KM2" : RETURN 


DATA 9,GRAN BRETAÑA, 13500000,55900000,244000 
DATA BELGICA, 23060000,9800000,30500 

DATA DINAMARCA, 1200000,5000000,43100 

DATA FRANCIA, 13400000,52100000,547000 

DATA ALEMANIA FEDERAL, 15600000,62000000,2486 


DATA IRLANDA, 400000,3000000,70300 
DATA ITALTA,12500000,54900000,301200 
DATA LUXEMBURGO, 100000,400000,2600 
DATA HOLANDA ,2800000,13400000,40800 
END 
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75, CREACION DE UN FICHERO 


Haz un programa para almacenar en un fichero los datos de la siguiente 
tabla. 


VENTAS 
LUGAR EMPRESA EN ACTIVIDAD 
$105 

1 EM ie 48.630 Petróleo 

2 General Motors 47.181 Automoción 

3 Pod ii 28.839 Automoción 

4 Texaco . 26.431 Petróleo 

5 Mobil Oil ..oooooooccccoo. 26.062 Petróleo 

6 Standard O% of California .... 19.434 Petróleo 

7 Gulf O. A 16.451 Petróleo 

3 IBM. .... 16.304 Electrónica 

9 General Electric . 15.697 Electrónica 
10 Chrysler .. 15.537 Automoción 
11 ETA es 11.764 Teléfonos 
12 Standard Oil 11.532 Petróleo 
13 Shell Oil .... 9,229 Petróleo 
4 US. Stecl ... 8.604 Acero 
15 Atlantic Richfield . 8.462 Petróleo 
16 Du PoMt........ > 8.361 Químicas 
17 Continental Ol ............ 7.957 Petróleo 
13 Western Electric ...-....... 6.930 Electrónica 
19 Procter € Gamble . E 6.512 Prod. de Consumo 
20 TO Ci E 6.389 Petróleo 


Podemos considerar al ordenador integrado por una serie de Órganos 
interconectados: 


3 — la VAL, Unidad Aritmético-Lógica, conjunto de circuitos donde se efec- 
H túan las operaciones lógicas y auméricas: 
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—los órganos de entrada y salida, que le permiten “escuchar” y “hablar”; 


— la memoria, parte fija (ROM, donde conserva sus conocimientos per- 
manentes, en cierta medida equivalente a nuestra memoria) y parte volátil 
(RAM, que se borra al apagar y es equivalente a las notas que posotros 
tomamos en una cuartilla, que nos permiten recordar instrucciones, di- 
recciones y hacer operaciones, y que tiramos al terminar la jornada de 
trabajo). 


¿Dónde guardar la información que no debemos perder, de una manera 
que nos permita su fácil recuperación y utilización? ¡En un fichero, claro! 


En una oficina un fichero es un armario utilizado para guardar ordenada- 
mente la información. En Informática un fichero es una estructura que permite 
guardar ordenadamente, y de manera permanente, información. El fichero se 
crea en la memoria del ordenador, y se pasa, de una vez o en partes, a vn 
soporte material permanente (antes tarjetas o cintas de papel perforadas, ahora 
casi siempre soporte magnético o tecnología más avanzada, lasser o memoria 
de burbujas). Este soporte no suele residir en el ordenador sino en un periférico 
especializado (magnetófono de cassette, unidad de cinta o de disco). 


La creación de un fichero supone introducir en el ordenador gran cantidad 
de datos sin ningún error, ni en el valor de los datos ni en su orden, La 
mejor manera de lograrlo nos parece que consiste en almacenar transitoria- 
mente la información en líneas DATA, de forma que podamos corregir con 
mayor facilidad los inevitables errores de transcripción. 


El programa que proponemos crea un fichero secuencial, Este tipo de fi- 
cheros, el más sencillo, se concibe como una sucesión de valores (todos números 
o todos caracteres; no es recomendable utilizar ficheros mixtos) que se crea en 
la memoria volátil y se “vuelca”, secuencialmente, en el periférico especiali- 
zado. Lo mismo que con el fichero-armario, antes de poder introducir o extraer 
información del fichero-magnético hay que abrirlo, y al final habrá que ce- 
rrarlo, empleando instrucciones específicas. 


10 REX FICBERO SECUENCIAL 

20 OPENRS : REM ABRIR FICHERO 3 

30 FOR I=1 TO 3 

YO READ DÍ : REM LEER DATO 

$0 PRINTA3,DS : REM ESCRIBIR EN EL FICHERO 3 

60 NEXT 1 

70 TF D$="ZZZ" THEN 9000 : REM SEÑAL DE FIN DE FICHE 
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80-.c0TO 30 
109 DATA EXX0N,48630,PETROLEO, CENERAL MOTORS,47181,A 


UTOMOCTON 
110 DATA FORD,28839,AUTOMOCION,TEXACO,26451,PETROLEC 
120 DATA MOBIL 011,26062,PETROLEC,STANDARD OIL OF CA 
LIFORNIA,19434,PETROLEO ] 

130 DATA GULF 011,16451,PETROLEO,13M,16304,ELETRONIC 
A 

140 DATA GENERAL ELECTRIC,15697, BLETRONICA, CURYSLER, 
15537,AUTOMOCION 

150 DATA 177,11764,TELEFONOS,STANDARD 011,11532,PETR 
OLEO 

160 DATA SHELL 011,9229,PETROLEO,US STEEL,8604,ACERO 
170 DATA ATLANTIC RICHFIELD,8462,PETROLEO,DU PONT,S3 
61, QUIMICAS 

180 DATA CONTINENTAL 011,7957,PETROLEO,WESTERN ELECT 
R10,6930 ELECTRONICA 

190 DATA PROCTERACAMBLE,6512, CONSUMO, TENNECO,6389,PE 
TROLEO 

2000 DATAZZZ,22Z,22% 

9000 CLOSE 3 

9010 END 


En muchos ordenadores cuando se abre un fichero hay que indicar, además 
del número, si se abre para leer o para escribir, si va a ser de tipo secuencial 
o no, en qué periférico va a residir, etc. Antes de intentar hacer funcionar 
este programa haz las modificaciones que indique el manual de tu equipo. 


El fichero secuencial, que es el más sencillo, no es el más útil ya que 
para acceder a un dato hay que leer todos los anteriores; pero la creación y 
utilización de ficheros de acceso directo a los datos depende más aún del sis- 
tema informático concreto que estemos empleando, y no son posibles más que 
utilizando discos. 
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76. SECTORES INDUSTRIALES 


Queremos obtener un programa que, a partir de los datos del fichero del 
ejercicio anterior, nos proporcione los nombres de las empresas del sector que 
indíquemos y los porcentajes de cada una en el movimiento económico de este 
sector y en el total. 


Este programa ha de leer el fichero creado en el ejercicio anterior, ir “to- 
mando nota” de las ventas de todas las empresas, sean del sector que sean, 
en MT; aislar las del sector pedido y anotar en MS el movimiento de éstas. 
Todo ello lo puede hacer la misma subrutina (líneas 1000 a 1070). Otra orde- 
nará por importancia económica las empresas del sector, si no lo estuvieran. 
Por último, otra dará la lista y los porcentajes pedidos. 


Un desarrollo parcial del diagrama de flujo, que atendiera a las partes del 
programa con mayor dificultad, sería el que figura en la página siguiente. 


No desarrollamos la tercera rutina, que es lineal, ni la segunda, que es una 
generalización de la ordenación de listas y aparece tratada en otro lugar. 


La variable MT representará el movimiento económico total, y MS el mo- 
vimiento sectorial. Sf será el sector que nos interesa; Z4) la señal de fin de 
fichero; F el número de empresas en ese sector. Estas empresas, su nombre y 
ventas las guardaremos en L$ y previamente habrán sido recogidas del fichero 
por Tf, donde figura, además, el sector a que pertenecen. X$ e Y$ son va- 
riables auxiliares para la representación final. 
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PRINCIPIO 


DIMENSIONAR 
¿QUE SECTOR? 
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(3) 


ABRIR 
FICHERO 


TNICIALIZAR 


LE 


LEE! 


El 
a 


(2) Ñ 


887 


¿EMPRESA 
DEL 
SECTOR? 


ACTUALIZAR 
MS y F 


TOMAR NOTA 
IDE LA EMPRESA 


ACTUALIZAR 


El programa quedará así: 


10 REM ESTUDIO DE LA INDUSTRIA POR SECTORES 

20 DIM T$(3),L$(20,2) 

30 INPUT "QUE SECTOR LE INTERESA"¿S$ 

40 GOSUB 1000 : REM LEER FICHERO 

50 GOSUB 2000 ; REM ORDENAR EMPRESAS SECTOR 

60 GOSUB 3000 : REM EXHIBIR 

70 GOTO 4000 : REM FINAL 

1000 OPENHL : Z$="ZZZ" ; MI=0 : MS=0 ; F=0 

1010 FOR I=1 70 3 : INPOTH1,T$(1) : NEXT 1 

1020 1F T$(3)=28 THEN 1070 

1030 MI=MI+VAL(TS(2)) : IF T$(3)<>5$% THEN 1010 

1040 F=F+1 : MS=MS+VAL(T$(2)) 

1050 FOR I=1 TO 2 : L$(F,I)=T$(1) : NEXT 1 

1060 GOTO 1010 

1070 CLOSE 1 

1080 RETURN 

2000 FOR 1=1 TO P-1 

2010 FOR J=1 TO F-1 : 1F VAL(L$(3,2))>=VAL(LS(J+1,2) 
) THEN 2050 

2020 X$=L$(J,1) : Y9=L$(3,2) : 

2030 1$(3,1)=1$(J3+1,1) : 1$(J,2)=1$(J3+1,2) 

2040 1$(3+1,1)=X$ : L$(J+1,2)=YS 

2045 FRINT"I=",1," ER] 

2050 NEXT J 

2060 NEXT 1 

2070 RETURN 

3000 ( BORRAR LA PANTALLA ) 

3010 PRINT TAB(6); "SECTOR ";S$ : PRINT 

3020 PRINT TAB(2); "EMPRESA"; TAB(17);"SECTOR";TAB(33) 
¿UTOTAL" 

3030 FOR I=1 70 38 ; PRINI"*"; : NEXT 1 : PRINT 
3040 FOR l=1 TO F 

3050 K=5 : V=VAL(LS(1,2))*100/MS : IF V<10 THEN K=4 
3060 X$=LEFTS(STRÍ(VI),K) 

3070 L=5 : V=VAL(1$(1,2))*100/MT ; IF V<LO THEN L=4 
3080 Y$=LEFTS(STRÍ(V),L) 

3090 PRINT TAB(0);L$(1,1);TAB(21-K)3X$5"2"3TAB(37-L) 
15, 0gn 

3100 NEXT 1 

3110 RETURN 

4000 END 
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7. MATEMATICAS 


7. 


TABLAS DE SUMAR 


Queremos que aparezca en la pantalla la tabla de sumar de un número pre- 


víam 


ente elegido, y que después, el ordenador nos la pregunte. 


Primero, mediante INPUT, el ordenador nos pedirá el número de la tabla 


que 


queremos aprender. Después escribirá la tabla. 


Pasado algún tiempo, borrará la pantalla y empezará a preguntarnos la 
tabla salteada. Al final nos dirá el número de fallos y nos preguntará si que- 
remos continuar. 


REX TABLAS DE SUMAR 
C BORRAR LA PANTALLA ) 
F=0 ; V=0 

INPUT "QUIERO ESTUDIAR LA TABLA DEL"¿N 
PRINT : PRINT 
FOR 1=1 TO 10 
PRINT N¿"e"jI¿"="3N+1 
PRIRT 
NEXT 1 

FOR J=1 TO 5000 : NEXT J 

( BORRAR LA PANTALLA ) 

FOR J=1 TO 30 

I=INTO OFRND)+1 

PRINT N¿Me"ji¿ Me"; 

INPUT S 

IF S=N+1 TREN 210 

F=F+1 

PRINT "NO" : 
Y=V+l : IF V=3 THEN V=0 : GOTO 50 
GOTO' 140 

NEXT J 

PRINT "HAS TENIDO"; F; "FALLOS" 
PRINT "QUIERES CONTINUAR? (S/N)" 
GET AS 

IF AF$<>"S" AND ASCIUN" TREX 240 
IF A$="S" THEN RUN 20 

(Ú BORRAR LA PANTALLA ) 

PRINT "l ADIOS 1" 

END 
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78. MULTIPLICAR SUMANDO (4.7) 


Imaginando que el ordenador no sabe multiplicar, haz un programa de mul- 


tiplicación de números enteros por adiciones sucesivas, 


Si queremos la multiplicación del número F1, por ejemplo 6, por el nú- 


mero F2, por ejemplo 9, observemos las siguientes sumas: 


04+6=6 > 
6+6=12 
12+6=18 


18+6=24 Estas sumas se realizan tantas veces como indica el 
24+6=30 segundo factor, de modo que el producto es la última 


30+6=36 suma. 
36+6:=42 
42+6=48 
43+6=54 


Para la repetición de las sumas sucesivas nos valemos de un contador, que 


dará por concluidas las sumas al ser igual al segundo factor. 


10 REM MULTIPLICAR SUMANDO 1 
20 PRINT “PRIMER FACTOR”; 

30 INPUT Fl 

40 PRINT “SEGUNDO FACTOR”; 

50 INPUT F2 

60 1=0 

70 S=0 

80 IF 1.=F2 THEN 120 

90 S=S+F1 

100 I-=1+1 

119 GOTO 80 

120 PRINT “EL PRODUCTO DE";F1POR”;F2/“ES”;S 
130 END 


Utilizando la instrucción FOR-NEXT el programa queda más sencillo, 


10 REM MULTIPLICAR SUMANDO 2 
20 PRINT “PRIMER FACTOR”; 

30 INPUT Fl 

40 PRINT “SEGUNDO FACTOR”; 
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30 INPUT F2 

60 S=0 

70 FOR I=1 TO F2 
$0 S=84+F1 

90 NEXT 1 

100 PRINT “EL PRODUCTO DE*:Fi*POR>F. 
110 END 


“ES”:S 
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79, DIVIDIR RESTANDO (4.8) 


Suponiendo que el ordenador no sabe dividir, haz un programa de división de 
dos números por sustracciones sucesivas (división entera que al final dé el co- 
ciente sin decimales y el resto). 


Queremos efectuar la división entera del número D por el número Di, cal- 
culando el cociente y el resto sin utilizar la tecla /. a 
Observemos qué ocurre si tomamos como ejemplo 25 y 6. 
25—6=19 


19-6=13 Las cuatro sustracciones nos dan el cociente 4, y la última, 
el resto 1. 


El algoritmo que realizamos consiste en repetir las sustracciones sucesivas 
hasta que la última diferencia sea menor que el divisor. 


10 REM DIVIDIR RESTANDO 1 

20 PRINT “DIVIDENDO”; 

30 INPUT D 

40 PRINT “DIVISOR”; 

50 INPUT DI 

60 REM SE INICIALIZA CONTADOR 
70 I=0 

80 A=D 

90 REM RESTAS SUCESIVAS 

100 IF A<Di THEN 140 

110 A=A—D1 

120 I=1+1 

10 GOTO 100 

149 PRINT “EL COCIENTE DE DIVIDIR”;¡D;“POR"¡Di“ES":T 
150 PRINF 

150 PRINT “EL RESTO ES”¡A 

179 END 


En este caso no se aprecia ventaja con la utilización de la instrucción 
FOR-NEXT: 


10 REM DIVIDIR RESTANDO 2 
20 PRINT “DIVIDENDO”; 

30 INPUT D 

40 PRINT “DIVISOR”; 
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ES] 
El 
e 


INPUT Di 
REM SE INICIALIZA CONTADOR 


60 

7 

80 FOR I=0 TO Di 

$0 1F A<Di THEN 120 
100 A=A—D1 


120 PRINT “EL COCIENTE DE DIVIDIR”:D/“POR”;DI;“ES”l 
130 PRINT 

140 PRINT “EL RESTO ES”¡4 

150 END 


80. SUMA DE POLINOMIOS (8.12) 


Prepara un programa que realice la suma de dos polinomios. Los grados de 
los polinomios no pueden ser mayores de 10. 


En principio, se supone que ambos polinomios son de grado 10 y no todos 
sus coeficientes son 0, 


Veamos un ejemplo. Sean los polinomios: 
Px)=2x43xx4+3 y Q(x)=2x—8 


El grado de P(x) es 3 e irá en la variable N. El grado de Q(x) es 1 e irá 
en la variable M. Los coeficientes de P(x) son: A(0)=3, A(1)=—1, A(2)=3, 
A(3)=2 y los restantes son cero. Los coeficientes de Q(x), son: B(0)=-—8, 
B(1)=2 y los restantes cero. 


La suma es: 


A(0) + B(0)= —5, que es el coeficiente de grado 0. 
A(D+B(1)= 1, que es el coeficiente de grado 1. 
A(D)+B(2)= 3, que es el coeficiente de grado 2. 
AG)+B(3)= 2, que es el coeficiente de grado 3. 


La suma de los demás coeficientes da cero por lo que no aparecen en el 
resultado final. 


10 REM SUMA DE POLINOMIOS 


20 DIM A(10),B(10) 


30 REM TODOS LOS COEFICIENTES EN PRINCIPIO SON CERO 
40 FOR 1=0 TO 10 

50 A(D=0 : B)=0 

60 NEXT 1 

70 PRINT “GRADO DEL PRIMER POLINOMIO”; 

80 INPUT N 

90 IF N>10 THEN 70 

100 PRENT : PRINT “COEFICIENTES DEL PRIMER POLINOMIO (DE MAYOR A M 
ENORJ” 

110 FOR L=N TO 0 STEP —1 

120 INPUT A(D 

130 NEXT 1 

140 PRINT : PRINT “GRADO SEGUNDO POLINOMIO”; 
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150 INPUT M 
160 1F M>10 THEN 140 


170 PRINT : PRINT “COEFICIENTES DEL SEGUNDO POLINOMIO (DE MAYOR A 


MENOR)" 

180 FOR 1=M TO 0 STEP 1 

190 INPUT B(I) 

200 NEXT 1 

210 IF N<=M THEN K=M : GOTO 230 
220,K=N 

230 REM POLINOMIO SUMA 

240 PRINT : PRINT “LA SUMA ES:” : PRINT 
250 FOR 1=K TO 0 STEP 1 

260 PRINT “EL COEFICIENTE DE GRADO"::"ES”¡A()+B(D) 
270 NEXT 1 

280 END 
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81. SUMA DE FILAS Y COLUMNAS 
EN UNA TABLA (7.5) : 


Dada una tabla de 13x13 números, tomar cada file y sumar todos stis 
elementos y lo mismo con las columnas. Hacer al final la suma de los totales de 
las filas y la de los totales de las columnas y comprobar que ambas coinciden. 


Aunque el enunciado del ejercicio nos dice 13 filas y 13 columnas, vamos a 
considerar N filas y M columnas, de modo que un INPUT nos permita intro- 
ducir las filas y columnas que deseemos. En nuestro ejercicio hasta 13 filas y 
13 columnas. 


La tabha utiliza la variable con dos indices A(1,3). La variable S(1) contiene 
la suma de cada una de las filas y S1(J) contiene la suma de cada una de las 
columnas. Las variables T y Tl contienen, respectivamente, la suma total de las 
sumas de cada fila y de las columnas. 


19 REM SUMA DE FILAS Y COLUMNAS DE UNA TABLA 
20 DIM A(13,:3:5(13),5103) 

30 PRINT “CUANTAS FILAS"; 

30 INPUT N 

50 PRINT “CUANTAS COLUMNAS”; 

60 INPUT M 

70 PRINT “ENTRADA DE LOS ELEMENTOS DE LA TABLA” 
80 FOR i=1 TO N 

90 FOR J=1 TO M 

100 PRINT “FILA"¡“COLUMNA* 

110 INPUT A(LI 

120 NEXT 3 

130 NEXT 1 

140 PRINT “ELEMENTOS DE LA TABLA” 

150 FOR I=1 TO N 

160 FOR J=! TO M 

170 PRINT A(L)); 

180 NEXT J 

190 PRINT 

200 NEXT 1 

210 PRINT 

220 FOR l=1 TO N 

230 S()=0 

240 FOR Jul TO M 

250 S()=S(D+A(LD 

260 NEXT 1 

270 PRINT “LA SUMA DE LA FILA”A“ES"S() 
280 NEXT 1 
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299 PRINT 

300 FOR J=1 TO M 

310 SKI)=0 

320 FOR I=1 TO N 

330 SI) =SHN)+A(L) 

340 NEXT 1. 

350 PRINT “LA SUMA DE LA COLUMNA" 
360 NEXT J 

370 PRINT : T=0 

380 FOR I=1 TO N : T=T+S() : NEXT 1 


“ES”:S1(3) 


390 PRINT “LA SUMA DE LOS TOTALES DE LAS FILAS EST 


400 PRINT : Tl=Ú0 
410 FOR Ju1 TO M :Ti=TI4SIU) : NEXT J 


420 PRINT “LA SUMA DE LOS TOTALES DE LAS COLUMNAS ES”/r1 


430 END 
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82. CONVERSION DE ANGULOS 


Se trata de hacer un programa que convierta los radianes en grados, minutos 
y segundos; y reciprocamente, los grados, minutos y segundos en radianes. 


El programa es sencillo y lo puedes entender fácilmente. 


10 REM CONVERSION DE ANGULOS 

20 (BORRAR LA PANTALLA) 

30 PRINT “DE GRADOS A RADIANES (1) O AL REVES (2)” 
49 INPUT Z 

SO 1F Z=2 THEN 110 

60 PRINT “DAR LOS GRADOS MINUTOS Y SEGUNDOS” 
70 INPUT “SEPARADOS POR COMAS (,)”¡G,M.S 

30 G=G+M/60+8/3600 : R=G+3.14159265/180 

90 PRINT INT(R+1000+.5)/1000/“RADIANES” 

100 GOTO 170 

110 INPUT “ANGULO EN RADIANES”:R 

120 G=R+*180/3,14159265 


140 M=G+60 : MI=INTM) 

M-MIJ*60 : SI =INT(S+1000+.SI/1000 

160 PRINT GLGRADOS”¿M1;'MINUTOS”;S! “SEGUNDOS” 
170 END 
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83. CONVERSION DE LONGITUDES (4.22) 


Interesa hacer un programa de conversión de longitudes para los ingleses. El 
ordenador pedirá la longitud en metros, y la convertirá a yardas, pies y pulgadas. 
Una yarda tiene 0,9144 m, y está dividida en 3 pies y cada pie en 12 pulgadas 
(no utilices la función INT, sino el algoritmo de “dividir restando”). 


Tras leer los datos e inicializar las variables estamos en la línea 60. En ella 
y en las dos siguientes se cuenta el número de yardas, Cada vez que sea 
L> =0,9144 se le resta ese valor y se cuenta una yarda más. 


Cuando es L<0,9144 ya están contadas todas las yardas y hay que pasar a 
contar los pies por un proceso idéntico. Son las líneas 100 a 130, 


Al final las pulgadas son el cociente de la longitud restante y la longitud 
de una pulgada. 


10 REM CONVERSION DE LONGITUDES 
20 (BORRAR LA PANTALLA) 

30 INPUT “LONGITUD EN M.¡L 

40 YA=9144 : PI=YA/3 : PU=P//12 

50 Ni=0 : N2=0 

$0 IF L<YA THEN 100 

70 Ni=Ni+1 

80 L=L—YA 

30 GOTO 60 

100 AF L<PI THEN 140 

110 N2=N2+1 

129 L=L-P1 

130 GOTO 100 

140 N3=1/PU 

150 PRINT : PRINT NISYARDAS":N2/PIES”¡N3/“PULGADAS" 
160 END 


Utilizando la función INT ei programa se simplifica. Basta realizar dos veces 
la división entera, hallando el cociente entero y el resto. Ál final, el último 
resto pasado a pulgadas se redondea a tres decimales. 


10 REM CONVERSION DE LONGITUDES 
20 (BORRAR LA PANTALLA) 

30 INPUT “LONGITUD EN ML 

30 YA=3144 : PI=YA/3 : PU=PIIZ 

50 Ni=INT(L/YA) 

60 L=L-—NiYA 


70 N2 


INT(L/PM 


100 N3=INT(N3+1000+.5)/1000 
110 PRINT : PRINT NI YARDAS"¡N2/“PIES”:N3 PULGADAS” 
120 END 
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84. SUMAS PARA PEPITO 


Programar la aparición, en la pantalla, de una suma de dos números de cuatro 
cifras, que Pepito deberá efectuar pulsando las teclas correspondientes. 


Debes conseguir que en el centro de la pantalla aparezca, de modo aleatorio, 
una suma como ésta: 


3742 
+9315 


Para empezar a sumar, Pepito deberá pulsar la tecla del 7, el cual se co- 
locará en el sitio correspondiente de la suma. Si pulsara cualquier otra tecla, 
no se reflejaria en la pantalla en espera de pulsar la correcta. Y así hasta que 
Pepito acabe la suma. 


El primer problema que se presenta al programar es el de cómo conseguir 
números aleatorios de cuatro cifras. La instrucción 


A =INT(9000 x RN D) + 1000 


asigna a la variable A valores enteros que van desde 1000 a 9999, 


De igual modo obtenemos el número B. La suma de los dos se guardan en 
$. Esta suma será un número de cuatro o cinco cifras. Con objeto de desguazar 
el número $, esto es, descomponerlo en sus cifras, lo convertimos en cadena 
de caracteres: 


Sk =STRK(S) 


Ahora, mediante la función MID$ obtenemos, una a una y de derecha a 
izquierda, las cifras de SÉ. La cifra que ocupa el lugar L, empezando por la 
derecha, se puede obtener así: 


S$() =MIDS(S$,L—1+ 1,1) 


En donde L=LEN(S$) es el número de cifras de la suma: 4 ó 5, según Jos 
Casos. 
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La cifra que propone Pepito se guarda en A$, mediante GET, y se coloca 
en su sitio Únicamente en el caso de que sea correcta, Para averiguarlo hay 
que comparar A$ con la cifra correspondiente, que se encuentra en SÍ(D. 


10 REM SUMAS PARA PEPITO 
20 (BORRAR LA PANTALLA) 

30 PRINT “REALIZA LA SIGUIENTE SUMA” 

40 PRINT “PULSANDO LAS TECLAS CORRESPONDIENTES” 
50 A=INT(9000:RND + 1000) 

60 B=INT(P000<RND + 1000) 

70 S=A+B 

30 SP=STRÍS) 

90 L=LEN(SÍ) 

100 FOR 1=1 TO L 

110 SA) =MIDÍS$L—I+1,1) 

120 NEXT 1 

130 (CURSOR AL ORIGEN) 

140 FOR [=1 TO 10 : PRINT : NEXT 1 

150 PRINT TAB(17):STRÍ[A) 

160 PRINT TAB(16):“+":STR$(B) 

170 PRINT TAR(16)*-- -—-—-—- , 

180 FOR [=1 TO L-1 

190 GEF A$ 

200 1F Afi<>S$() THEN 190 

210 PRINT TAB(2—D:4$ 

22) (CURSOR A LA LINEA ANTERIOR); 

230 NEXT 1 

240 PRINT : PRINT : PRINT 

250 PRINT “QUIERES HACER OTRA SUMA (S/N)? 
260 GET AS 

270 1F A$<>“N" AND Af<>"S”" THEN 260 

280 1F Af="S” THEN 20 

290 PRINT : PRINT TAB(10); "ADIOS" 

300 END 


Observación: 


En muchos ordenadores la cadena S$ lleva en ella un espacio a la izquierda. 
Esto hace que la longitud real de Sfi exceda en una unidad al número de 
cifras de S. Por esta razón, en la línea 180 figura L—1 y no L, como a primera 
vista parece que debiera ser. 


Desde luego se puede poner L en la línea 180; pero, en este caso, Pepito 
tiene que acabar la suma pulsando la tecla espacio. 
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85. PUNTOS EN UN CIRCULO 


Escribir un programa que calcule los puntos de coordenadas enteras que están 
en el interior de la circunferencia de ecuación x"+y?=18. 


El radio de la circunferencia es ./18. Como ss observa en la figura, las 
coordenadas enteras de los puntos interiores varían entre —4 y 4. 


PE 


Por tanto, mediante dos bucles anidados, uno para la x y otro para la y, 
podemos “barrer” todos los puntos de coordenadas enteras que están en el 
interior de la circunferencia y llevar la cuenta, mediante la variable contador €. 


Es evidente que la cuenta, en el ejemplo propuesto, se podría haber hecho 
a mano; sin embargo, proponemos al lector que lo intente con la circunferencia 
de ecuación x? +y?= 1000, 
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10 on PUNTOS DE COORDENADAS ENTERAS INTERIORES A UNA CIRCUNFE 
RENCI. 

20 C=0 

30 FOR X=-4 TO 4 

40 FOR Y=-4 TO 4 

50 IF X12+Yt2>=18 THEN 70 

60 C=C+] 

70 NEXT Y 

30 NEXT X 

O “EL NUMERO DE PUNTOS DE COORDENADAS ENTERAS ES”;C 
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86. NUMEROS PRIMOS (6.3) 


Obtener todos los números primos menores que 342. 


En el bucle de las líneas 30 a 100 y variable N, se analizan todos los 
números desde el 2 al 342. El bucle anidado de las líneas 40 a 80 estudia, 
para cada N, si tiene algún divisor. 


El número 1 será divisor de N, si el resto de dividir N entre 1 es cero. 
R=N—1«INT(IN/D 


Sí N tiene algún divisor, la línea 70 envía a estudiar el siguiente N. Si 
no, al terminar el examen de los divisores, la línea 90 hace imprimir N, que 
es primo. 


La línea 50 se dirige a abreviar la ejecución del programa. En efecto: al 
estudiar los divisores de 337 para ver si es primo, basta llegar al primer 
divisor que cumpla 1+I> 337, en nuestro caso 19. De faltar esta línea el bucle 
de variable 1 continuaría hasta 1=337, resultando mucho más lento. 


10 REM NUMEROS PRIMOS 
20 (BORRAR LA PANTALLA) 
30 FOR N=2 TO 342 

40 FOR I=2 TO N 

50 1F tI>N THEN 90 

$0 R=N—I*INT(NA) 

70 IF R=0 THEN 100 

80 NEXT 1 

90 PRINT N 

100 NEXT N 

110 END 


87. DESCOMPOSICION EN FACTORES PRIMOS (6.4) 


Descomponer un número en sus factores primos. 


En este ejercicio utilizaremos el mismo algoritmo que los alumnos de E.G.B. 


27612 

13812 
6913 
23123 


1 


El núcleo del programa son las líneas 50 a 90. Comenzando por los nú- 
meros D más bajos, se analiza si dividen a N. En caso afirmativo se imprimen 
N y el divisor, y, para continuar el trabajo siguiendo el mismo algoritmo, se 
sustituye N por N/D. 

Fíjate en que, como en este ejemplo, si 2 es un divisor, hay que volverlo a 
probar ya que 276/2=138, que también puede ser divisible por 2. De ahi la 
línea 100. + 


No se corre ningún riesgo al probar divisores no primos. En efecto, el 
ordenador siempre dirá que el número N no es divisible por un número com- 
puesto. Pensemos, por ejemplo, que antes de llegar a probar el divisor 4, al 
número N se le han quitado todos los factores 2 que contenía y, por tanto, el 
nuevo número N no será divisible por 4, 


La línea 60 va dirigida a la brevedad en la ejecución. Si en un momento 
D?>N, con todas las divisiones previas realizadas, es que N es primo, y pro- 
cede acabar el programa. De no existir esta línea, tantearía todos los divisores 
hasta llegar a 23, mientras que aquí se para en el 5. 


10 REM DESCOMPOSICION EN FACTORES PRIMOS 
20 (BORRAR LA PANTALLA) 

30 INPUT “DAR EL NUMERO”;N 
40 D=1 

50 D=D+1i 

60 IF D:«D>N THEN 110 

70 IF N—D*ÍNT(N/D)<>0 THEN 50 
80 PRINT N,D 

90 N=N/D 

100 GOTO 60 

110 PRINT NN 

120 PRINT 1 

130 END 
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88. MAXIMO COMUN DIVISOR (6.5) 


Programa el algoritmo de Euclides para el cálculo del máximo común divisor. 


El algoritmo de Euclides para el cálculo del máximo común divisor de dos 
números A y B está basado en la siguiente propiedad: 


MCD(A,B)=MCD(B,R) 


en donde R es el resto de la división entera de A por B. 


De esta propiedad se deduce que si el reste R es cero, el máximo común 
divisor es B. 


Si el resto no es cero, se efectúa una nueva división llamando A a B y 
BaR. 


Después de un número finito de pasos se conseguirá resto cero. Entonces 
el máximo común divisor estará en B, 


Lustremos el algoritmo con un caso concreto: 
MCD(124,14)=? 


124 | 14 14 [12 12 ]2 
12 8 21 0% 


MCD(124,14)=2 


10 REM MAXIMO COMUN DIVISOR DE A Y R 
20 INPUT “A="¡A 

30 INPUT “B="B 

40 R=A—B+INT(A/B) 

So IF R=0 THEN 9 

60 A=B 

70 B=R 

80 GOTO 40 

90 PRINT-“MCD==”;B 

100 END 
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Otro programa puede ser el siguiente: 


10 REM MAXIMO COMUN DIVISOR DE A Y B 
20 INPUT “A, BAR 
30 R=4—BxINT(A/B) 
40 1F R<>0 THEN 

$0 PRINT “MOD. <"¡B 
60 END 


:B=R : GOTO 20 
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89. TABLA DE VALORES DE UNA FUNCION (6.43) 


Hacer un programa que dé una tabla de valores de cualquier función entre 
dos números y para un incremento dado. 


Mediante la instrucción DEF FNY(X) de la línea 100 definimos la función 
que deseamos. En nuestro programa hemos considerado la función DEF 
FNY(X)=X?2, que puede ser sustituida por cualquier otra. 


El programa se puede considerar dividido en tres bloques: 


1? Presentación. Líneas 30-90 en las que se dan las instrucciones para la 
introducción de la función y para la continuación del programa. 


22 Entrada de datos. Lineas 120 y 130; las variables A y B recogen los 
extremos del intervalo y la variable C el incremento. 


3. Construcción de latabla. Lineas 150-200. Mediante un ciclo FOR-NEXT 
calculamos los valores de la función en los distintos puntos del inter- 
valo [A,B]. Para que la tabla tenga una mejor presentación redon- 
deamos los valores de la variable X y los de la función FNY(O), a 
cuatro decimales. La función TAB nos permite situar adecuadamente 
la tabla en la pantalla. Nuestra presentación está pensada para una 
pantalla de 40 columnas. 


10 REM TABLA DE VALORES DE UNA FUNCION 
20 (BORRAR LA PANTALLA) 
30 PRINT “FABLA DE VALORES DE UNA FUNCION” 


T 
60 PRINT "HAZLO AHORÁ ESCRIBIENDO PREVIAMENTE” 

7O PRINT“ — I00DEF FNYQQ=...” 

30 PRINT : PRINT “SI YA LA HAS DEFINIDO TECLEA RUN 100” 
90 STOP 

100 DEF FNY(X)=X12 

LO (BORRAR LA PANTALLA) 

120 INPUT “EXTREMOS DEL INTERVALO”;A,B 

130 PRINT : INPUT “INCREMENTO”;C 

140 (BORRAR La PANTALLA) 
150 PRINT “VALORES DE X" 
160 PRINT “======= 
170 FOR X=A TO B STEP C 

180 YI > INTENYCO=1E44.5/184 

190 PRINT TAB(A):INTOX+1E4+.SY1B4:TAB(5):Y1 
200 NEXT X 

210 END' 


'AB(18)“VALORES DE LA FUNCION” 
¡TAB(18):%= 
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90. CUADRADO PERFECTO (6.9) 


Sabiendo que la solución es única, hallar un número de cuatro cifras, de la 
forma aabb, que sea cuadrado perfecto. 


Todo número que sea cuadrado perfecto ha de acabar en 0, 1,4, 5,669, 
pero gracias a la rapidez de cálculo del ordenador podemos prescindir de 
esta restricción. 


Tendremos que comprobar números de cuatro cifras, desde 1100 hasta 
9999, que cumplan la condición indicada, 


Un número es cuadrado perfecto si verifica: 


INT(N?.5) =N FS 
o bien 
(INT(N1.5)12=N 


Estas igualdades pueden no ser útiles porque el ordenador no siempre 
utiliza valores exactos, sino que a veces utiliza valores aproximados; por 
ejemplo: 


6400 «= 80.000001 
y de igual modo: 
80? =:6400.000001 


Una posible solución es redondear las unidades de la raíz, que efectuamos 
en la línea 140, 


10 REM CUADRADO PERFECTO 

20 (BORRAR LA PANTALLA) 

30 PRINT “HAY QUE CALCULAR UN NUMERO” 
40 PRINT “DE LA FORMA AABB QUE SEA” 
50 PRINT “CUADRADO PERFECTO" 

60 PRINT “SI DESEA QUE COMIENCE PULSE” 
70 PRINT “UNA TECLA” 

$0 GET A$ 

90 IF Ag="" THEN 80 

100 (BORRAR LA PANTALLA) 

110 FOR A=1 TO 9 
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120 FOR B=0 TO 9 

130 N=1000%A + 100xA + 10xB+B 

140 R=INTENTO.S+0.5) 

150 1f R*R=N THEN 180 

160 NEXT B 

170 NEXT A 

180 FOR [=1 TO 10 : PRINT : NEXT 1 
190 PRINT“EL NUMERO PEDIDO ES”¡N 
200 END 


El problema admite otro punto de vista. Los números de cuatro cifras 
que sean cuadrados perfectos tienen raíces comprendidas entre 32 y 99, Po- 
demos elevar al cuadrado esos números N y comprobar si son de la forma 
aabb. Para realizar tal comprobación transformamos Cada número en la ca- 
dena N$=STR$ íN). En algunos ordenadores la cadena N$ aparece con un 
carácter más que el número debido al signo. Por ejemplo, si N=2132, entonces 
N$=“+2132” tiene 5 caracteres. 


Mediante la función MIDf comprobamos si los caracteres segundo y ter- 
cero son iguales, así como los de lugar cuarto y quinto. 


10 REM CUADRADO PERFECTO (2) 

20 FOR R=32 TO 99 

30 N=R*R 

40 NI=STREN 

50 1F (MIDÍN$,2,1)=MIDHING3,1) AND (MIDÍ(N$4,)=MIDÍNGS,0) THEN 70 
$0 NEXT R 

70 PRINT'EL NUMERO ES*¡N 

80 END 
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91. CAPICUA (6.11) 


Sabiendo que la respuesta es única, hallar un número capicúa de seis cifras 
que sea cuadrado perfecto. 


Como el ordenador opera muy deprisa le haremos estudiar todos los ca- 
picúas desde 100001 hasta 999999 y comprobar si son cuadrados perfectos, 
y en caso afirmativo, le pediremos que lo imprima y que termine el programa. 


Las primeras líneas son tres bucles encajados de manera que N va tomando 
los valores de todos ¡os capicúas. 


Tenemos la misma dificultad que en el problema anterior: no se puede poner 
como condición de la sentencia 1IF-THEN la siguiente: 


INT(N?1.5)=N1.5 (0) 
ni tampoco 
(UNT(N?. 512 =N a 


por los mismos motivos que antes. Lo resolveremos también de la misma ma- 
nera: utilizaremos una condición semejante a la (2) pero redondeando la JN 
a las unidades, sin decimales, en la línea 70. 


10 REM CAPICUA 

20 FOR A=1 TO 9 

30 FOR B=0 TO 9 

40 FOR C==0 TO 9 

50 No=100001%A +10010«B +1100+C 
$0 R=SQRIN) 

70 1F INT(R+.SAINTIR+-5)=N THEN 110 
80 NEXT € 

30 NEXT B 

100 NEXT A 

110 PRINT “EL NUMERO ES"¡N 
120 END 


El programa admite otro enfoque. Los números de seis cifras tienen raíces 
cuadradas comprendidas entre 315 y 1000. Podemos elevar al cuadrado estos 
valores y comprobar cada vez si el cuadrado es capicúa o no. 
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Es lo que hemos hecho en la segunda versión del programa. El análisis 
sobre si el cuadrado es capicúa o no se hace en las linsas 50 y 60. 


Cronometra qué programa es más eficiente, Á nosotros el primer programa 
nos ha dado un tiempo de ejecución de 53,8 segundos, mientras que el 
segundo sólo 18,8 segundos: la tercera parte. 


10 REM CAPICUA 2 
20 FOR R=315 TO 1000 
30 N=R+*R 


40 A$=STREO 
50 Bj=MIDF(A$A,1) + MIDÍ(AG,3,1) + MIDÍIAS2,D 
$0 IF B9=RIGHTÍAS,3) THEN 80 

70 NEXT R 

30 PRINT “EL NUMERO ES”¡N 

90 END 
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92, LA VACA Y EL PRADO (6.31) 


Un campesino tiene un prado cuadrado de lado L y una vaca que pasta en él. 
Ata la vaca con una cuerda al centro de uno de los lados. Quiere saber la longitud R 
que ha de da: a la cuerda, para que la vaca alcance exactamente la mitad de 
la superficie del prado y no se indigeste. 


Haz que R vaya creciendo desde R=L/2 hasta que la superficie de pasto 
sea 1?/2, con incrementos de R iguales a L/1000. 


La fórmula de la superficie de pasto es: 
S=3.14159:R12/2+L/2«(R12—1L12/4)1.5 —ATN4(R72—L72/4)T.5:2/L)=R?P2 
Como el ordenador caicula los valores de modo aproximado, hay que tomar 
diversas precauciones, para que el programa sea válido. 


En primer lugar, en la función de la superficie S, aparece una raíz cua- 
¿rada [RYL El primer valor de R es L/2 y el radicando es cero. No 
tendría que haber dificultades, pero de hecho sí pueden existir, porque el or- 
denador quizá obtenga para R?-—L*/4 un valor muy pequeño, pero negativo. 
Evitamos esto, tomando el valor absoluto del radicando. 


Por otra parte, no podemos imponer la condición de que la superficie S, 
para un cierto valor de R, sea L?/2, porque en general no serán números 
exactamente iguales. Tampoco es correcto poner 


ABS(S—L?/2)<0.001 
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porque a priori no sabemos si la diferencia puede ser de ese orden de 
magnitud. 


Por ejemplo: Si L=35, L?/2=612.5 


Si R=20.3699997 ...... S=611,269678 
Si R=20.4049997 ...... $=612.742323 


En ambos casos L?/2 difiere de S en una cantidad mayor que una milésima. 
Salvamos estos inconvenientes calculando el valor de R que hace mínimo 
ABS(L?/2—S). 


Para ello tomamos como valor mínimo inicial, fuera del ciclo FOR-NEXT, 
un número que sea mayor que todas las diferencias. Uno posible es L12, que 
guardamos en la variable MIN. Cuando se ha recorrido el cicio, en MIN se 
encuentra el mínimo y en X el valor de R que hace D mínimo. 


10 REM LA VACA Y EL PRADO 

20 (BORRAR LA PANTALLA) 

30 PI=3.1416 

40 INPUT “LADO DEL CUADRADO 
50 DEF FNY(R)=PI«R12/2+L/2w:ABS(R 12-—172/4)1.5- ATN(ABS(R12—L12/4))1.5:2/Lje 
R12 

60 MIN=L12 

70 FOR R=L/2 TO L STEP Lf1000 

80 5=FNY(R) 

90 D=ABS(L12/2-S) 

100 IF MIN>D THEN MIN=D ; X=R 

110 NEXT R 

120 PRINT : PRINT “EL RADIO MIDE":X 

130 END 
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93. AREA DE UN POLIGONO 


Realiza un programa que calcule el área de un polígono, por el método de 
los trapecios, conociendo las coordenadas de los vértices. 


La fórmula que nos da el área del poligono por el método de los trapecios es: 
Am 1/20 02) ly + YH) (Ya +) ++ (0) (a +Y1)), 


donde (x,,y :), (X2,Y2), ***» (Xn»Ya) son las coordenadas de los vértices del polígono. 


En la figura, para tres puntos, deducimos la fórmula que hemos puesto 
anteriormente. 


MN 
Blxy2) 
Alxuy1) 
Cliya) | 
| 
E] 
4 | 
! | 
pol 
1 1% ña 
E By A E 


Area del trapecio CC'B'B: 


Aj =1/2Ay2+Y3)- (%2-X3) 
Area del trapecio BB'A'A: 
A>=1/2y1 +y2)- (X1 —X2) 
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Área del trapecio CC'A'A: 


As =1/2Ly 1 +y3) (xy —X9) 
Arca del triángulo ABC: 


Ar=A: +A2Ay=1/2Ly24Y3) > (223) 41/21 +Y2) (x1 X2) 
—1/Ay: +y5)- (01 —x3) 


Ar 1/20 2) (Y ya) + (229) (Y + y) + (0 21) (ya +y1)] 


Para la realización del programa heraos supuesto que el poligono no puede 
tener más de 20 vértices. 


Las coordenadas se introducen mediante un INPUT y se utilizan las va- 
rjables con indice X(D) e Y(D. 


Para el cálculo del área A, se empieza tomando el valor cero y luego se 
acumulan los factores hasta llegar al penúltimo, ya que el último se suma fuera 
del bucle, 


Como el área es un número positivo y nos puede salir negativo (áreas 
orientadas), hemos recurrido a la función valor absoluto (ABS). 


10 REM AREA DE UN POLIGONO 

20 DIM X20)Y(20) 

30 PRINT “CUANTOS VERTICES (20 COMO MAXIMO)”; 

40 INPUT N 

50 PRINT “INTRODUCE LAS COORDENADAS DE LOS VERTICES” 
60 FOR E=1 TON 

70 PRINT “VERTICE*L; 

80 INPUT X(1,Y(D 

90 NEXT 1 

100 REM CALCULO DEL AREA MEDIANTE LA FORMULA 
110 A=0 

120 FOR l=1 TO N-1 

130 A=A+(X()-X0+1)W4Y() + YO +1) 

140 NEXT 1 

150 A=A+(X(N)-XU)I5YN) + YU) 

160 PRINT “EL AREA ES*¡ABS(AJ/2 

179 END 


255 


94. METODO DE BIPARTICION (6.45) 


Si una función continua en un intervalo toma valores de distinto signo 
en sus extremos, la función se anuía en algún punto intermedio (Teorema de 
Bolzano). Vamos a hallar por bipartición del intervalo ese punto (al menos uno) 
en que se anula. 


En general lo que se calcula es un valor aproximado, con un error menor 
que un número E fijado previamente. 


Supuesto que se verifica la condición expuesta en el intervalo [X1,X2], el 
procedimiento es sencillo. 


4 


ERROR 


En la figura se representa una función Y =F(X), siendo F(X1) negativo 
y E(X2) positivo. Tomamos el punto medio del intervalo [X1,X2] y vemos el 
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valor de la función en ese punto F(X0). Si es cero, hemos encontrado una raíz 
y el problema termina. Si F(X0) no es cero, entonces, de entre los dos segmentos 
en que se ha dividido el intervalo, elegimos aquél en que la función toma 
valores de signo contrario en sus extremos. Y así sucesivamente, hasta que la 
longitud del intervalo sea menor que 2E. Tomando ahora, X0 como valor 
aproximado de la raíz, cometemos un error menor que E. 


Nuestro programa está planteado para que introduzcamos un intervalo 
[XLX2] sin tener en cuenta si en su extremos la función toma valores de 
signo opuesto. Ese trabajo se lo dejamos al ordenador que lo realiza mediante 
la subrutina 300, 


El programa está dividido en las siguientes partes: 
1% Presentación, instrucciones y entrada de datos (líneas 10-110). 
2%  Secomprueba sí alguno de los extremos es raíz de la ecuación. Lineas 150-160. 
En caso de que ninguno de los extremos sea raiz: 
32 Estudio del cambio de signo (subrutina 300). 


Si los extremos cumplen la condición del Teorema de Bolzano, nos 
salimos de la subrutina y el programa continúa. En caso contrario bay que 
buscar un punto € en el interior del intervalo [X1,X2] tal que el intervalo 
[X1,C) sea válido. 


Para ello se podría dividir [X1,X2] en un número elevado de partes, 
100 ó 1000 y ver los valores de la función en los puntos intermedios. 
Pero este procedimiento es menos rentable que obtener números aleatorios 
comprendidos entre X1 y X2. En efecto, en la figura, la función cambia 
de signo entre las divisiones 850-950. Habría que comprobar como minimo 
los 850 primeros puntos para observar un cambio de signo. En cambio 
la probabilidad de obtener un número aleatorio en ese intervalo es 1/10. 


Si hemos obtenido el intervalo adecuado: 
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4% Se busca la raiz en ese intervalo (líneas 180-250). 


10 REM METODO DE BISECCION 

20 (BORRAR LA PANTALLA) 

30 FOR 1=1 TO 6 : PRINT : NEXT 1 
40 PRINT “METODO DE BISECCION” 


50 PRINT : PRINT : PRINT : PRINT “ PULSE LIST 130” 
60 PRINT : PRINT : PRINT “ PONGA LA FUNCION” 
70 PRINT . PRINT : PRINT “ PULSE RUN 90" 

30 STOP 


96 (BORRAR LA PANTALLA) 

100 INPUT “EXTREMOS DEL INTERVALO”; X1X2 
110 PRINT : INPUT “ERROR MENOR QUE'E 
120 FOR l.=1 TO 10 : PRINT : NEXT 1 

130 DEP ENY(X)=.. 
140 Yl=FNY(XI) : Y2FNY(X)) 

150 IF Yl=0 THEN PRINT “HAY UNA RAIZ EN"iX[ : GOTO 250 

160 IF Y2=0 THEN PRINT “HAY UNA RAIZ EN”X2 : GOTO 250 

170 GOSUB 200 

180 XO=(1 + X2/2 

190 YO=FNY(X0) 

200 1F YO==0 THEN PRINT “HAY UNA RAIZ EN"X0 : GOTO 250 

210 17 ABS(X2—X1)<2*%E THEN PRINT XO/'ES RAIZ CON ERROR MENOR QUE”E 
: GOTO 250 , 
220 1F SGN(FNY(X1)=SGNIYO) THEN 240 

230 X2==-X0 ; GOTO 180 

249 Xi =X0 : GOTO 180 

250 END 

300 REM ESTUDIO DEL CAMBIO DE SIGNO 

310 1F SON(YD<>SGN(Y2) THEN 400 

320 L=X2-X1 

230 FOR I=XI TO 1005 

340 C=X1+L4RND 

350 1F SGN(YI)<>SGN(FNY(C) THEN 390 

360 NEXT 1 

370 PRINT “NO SE ENCUENTRA CAMBIO DE SIGNO” 

380 PRINT "QUIZA NO HAYA RAICES” : GOTO 250 

390 X2=C 

400 RETURN 


95. 


METODO DE LA SECANTE 


En el programa anterior hemos enunciado el Teorema de Bolzano. 


Localizado un intervalo de este tipo, podemos aproximar una raíz de la 
ecuación F(x)=0, por varios métodos; uno de ellos es el de la secante, que 


pasamos a describir: 


Dada la gráfica de la función y el intervalo, se unen mediante un segmento 
los extremos del arco (una secante a la curva) y se toma como valor aproximado 
de la raíz el punto de corte de la secante con el eje de las X, según la fórmula: 


X0= 


_X1- F(X2)-X2- F(X1) 


F(X2) - F(X1) 
É 
xi : 
1xo xi 
| 
| 
1] 
! 
: 
Xi ! 
a 
| 
1 
i 
| 
| 
Xi 
X2 
xo 
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Salvada la excepción de que XO sez la raíz exacta, la raíz quedará a izquierda 
o derecha de XO, en nuestro gráfico a la izquierda. Prescindimos entonces del 
intervalo (X0,X2], llamamos X2 al punto XO y volvemos a trazar una secante. 
Se obtienen sucesivamente valores de XO más próximos a la raíz, 


El programa tiene una introducción para que el usuario defina la función 
en la línea 100. Después se realiza el proceso descrito. El organigrama sería 
semejante al del método de bipartición del libro BASIC BASICO. El núcieo del 
programa es un bucle en el que por N veces (el número de iteraciones) se 
halla el punto X0, intersección de la secante con el eje de las X, y se toma 
como nuevo intervalo el que contenga la raíz. 


¡O REM RAICES REALES DE UNA ECUACION 
20 REM METODO DE LA SECANTE 

30 (BORRAR LA PANTALLA) 

40 PRINT : PRINT “TECLEA LA FUNCION DE X PRECEDIDA DE” 

50 PRINT ; PRINT “ 100 DEF ENY (X)=.." 

60 PRINT : PRINT “DESPUES ESCRIBE RUN 100” 

70 STOP 

110 (BORRAR LA PANTALLA) 

120 PRINT 

130 INPUT “INTERVALO (XI <X2)"X1,X2 

140 IF SON(ENY(X1)<> SGN(FNY(X2) THEN 170 

150 PRINT : PRINT “NO ES SEGURO QUE LA FUNCION TENGA RAICES” 
160 PRINT : PRINT “EN ESE INTERVALO” : PRINT : GOTO 120 

170 PRINT 

130 INPUT “NUMERO DE ITERACIONES”;N 

190 PRINT : PRINT “APROXIMACION":TAB(16):"VALORES DE LA FUNCION” 
200 PRINT “mes=nammamo mo - PRINT 
210 FOR I=1 TO N 

220 X0=(XI+FNY(X2) -X2FNY(XIM(EN YO) - FNY(X1)) 

230 IF FNY(X0)=0 THEN I=N : GOTO 260 

240 IF SONIFNY(XO)=SGN(FNY(X1)) THEN Xl=X0 : GOTO 260 

250 X2=X0 

260 PRINT XO;TAB(16).FNY(X0) 

270 NEXT 1 

280 PRINT : PRINT “UNA RAIZ APROXIMADA ES ”:X0 

290 END 
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96. PANTANO 


Se ha construido una presa en la boca de una cerrada para formar un embalse. 
Las curvas de nivel de la zona que cubrirán las aguas son las de la figura. 
El borde superior de la presa empalma con la curva de cota 660 m. (el 
agua podrá llegar hasta esa altura). 


= o 


620 m. 

cra] L—— 
HL pó0 m4 A 
zi 77 > 4 
E IN de 


Con el fin de conocer el volumen de agua embalsada en cada momento, se 
ha pintado en la pared interior de la presa una escala numerada que indica la 
distancia desde el borde superior hasta la superficie del agua. Hemos de preparar 
un programa que nos permita conocer el volumen de agua embalsada a partir de la 
distancia mencionada. 


Dibujamos una cuadrícula sobre el mapa de la figura, de forma que una 
de las lineas verticales de la cuadrícula coincida con la presa, que suponemos 
recta, Necesitamos conocer no sólo el dato que puede variar, la altura del agua, 
sino también otro que se mantendrá siempre constante: la cota media de cada 
uno de los cuadrados. Para los que están detrás de la presa y que tienen cota 
media inferior al nivel del agua en ese momento, la diferencia entre estas 
dos alturas, cota media y altura del agua, multiplicada por la superficie del 
rectángulo nos da el volumen de agua sobre él. 


En la siguiente tabla de valores representamos la cuadrícula y la cota media 
de cada uno de los rectángulos. 
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715 | 6921681 | 673 | 668 | 666 | 664 | 665 | 672 | 675 | 681 | 683 679 | 682 
674| 681 | 663 ll 651 | 643 | 636 | 635 | 644 | 647 | 650 | 859 | 668 | 674 | 685 
657/ 650 | 637/629| 622 | 609 | 618 | 623 | 627 | 629 | 631 | 636 $57 | 686 
6301 622| 618 | 612 | 603 | 617 ¡ 63: | 642 | 637 | 652 ¡ 659 | 679 | 701 | 698 
652| 639 | 625| 620 | 6231 632 | 649 1 667 | 6771 681 | 686 | 692 | 704 | 711 
6791 658 | 641 632 | 637 | 645 | €63 | 679 | 634 | 689 | 697 | 709 | 714 1716 
692| 681; 674 | 651 ( 654 | 662 | 671 | 686 | 6921 712] Ti4 | 715 (717 | 721 


Hemos utilizado el algoritmo que sigue para obtener el programa: 


Entrar la distancia del agua al borde, DB 
inicializar la cota de la superficie del agua y el volumen, CS y V 
Para todas las filas de la cuadrícula 
Para todas las columnas 
Leer la cota del rectángulo, € 
Sila cota es inferior a la altura del agua, C<CS 
entonces aumentar V en la diferencia de estas alturas 
in de Si 
Siguiente columna 
Siguiente fila 
Multiplicar Y por la superficie del rectángulo 
Escribir el volumen 
Fin 


Suponemos que la superficie de los rectángulos es de 10.000 m* (100 m. 
de largo por 100 de ancho). Depositamos ordenadamente los valores de la 
tabla en líneas DATA con'lo cual la realización y ejecución del programa 
es inmediata. 


10 REM PANTANO 

20 DATA 715,692,681,673,668,666,664,655,672,675,681,683.579,682 
30 DATA 674,681,663,651,643,636,635.644,647,650,659,668,674,685 
40 DATA 657,650,637,629.622,609,618,623,627,629,631,636,657,686 
50 DATA 630,622,618,612,608,617,531,642,637,652,659,679,701,698 
60 DATA 652,639,625,620,623,632,649,667,677.681,686,692,704,711 
70 DATA 679,658,641,632.637,645,663,679,684,689,697,709,714,716 
80 DATA 692,681,674,651,654,662,671.686,692,712,714,715.,717,721 
100 INPUT “DISTANCIA DEL AGUA AL BORDE “¿DB 
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110 CS=660—DB : V=0 

120 FOR 1=]1 TO 7 

130 FOR J=1 TO 14 

140 READ C :1F €<CS THEN V=V+(08-C) 

150 NEXT J 

160 NEXT 1 

170 V=V*100+100 

180 PRINT “EL VOLUMEN EMBALSADO ES ”;V;* M3” 
190 END 
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97. LAGO 


Deseamos tener una idea aproximada del relieve del fondo de un lago (véa- 
se figura 1), Haz un programa que nos dé una representación tipo mapa (véase 
figura 2), con su profundidad en cada sitio. 


Fig. 1 


Para lograrlo procedemos en forma parecida a como hicimos en el ejemplo 
anterior: una embarcación sigue las lineas horizontales y efectúa medidas (me- 
diante sónar) de la profundidad del fondo en los puntos señalados. Introducimos 
los resultados de estas medidas en líneas DATA, precedidas por otro valor que 
indica la posición en que se realizó la primera medida de cada serie, desde 
el punto que está más al Oeste de todos, Cada tanda de medidas va seguida 
de un 1, que permite distinguirla de la siguiente. 


10 REM LAGO 
20 (BORRAR LA PANTALLA) 

30 FOR 1=1 TO 7 

40 READ PFP : PRINT TAB(PE-LENSTRÍP)D):P:"?; 

50 READ P :1F P<>-1 THEN PF=PF+5 : PRINT TAB(PF-LENSTRS(PD)P:"2 0: 
GOTO 50 

60 PRINT : PRINT 

70 NEXT 1 

100 DATA 7.2,79,3,—1 

110 DATA 42,6,12,20,128,3,—1 
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120 DATA 4,3,14,20,23,19,12,7,2, —1 
130 DATA 4,4,17,32,35,29,26,159,1,—1 
140 DATA 4,3,10,18,26,20,16,11,7,3,— 1 
150 DATA 74,8,11,10,8,6,5,2,—1 

1609 DATA 10,24,32,—1 

200 END 


Ejecutando el programa tenemos la siguiente imagen: 


2: Pio Y: 
S: SIREIDB:13:: 5: 5 
3:214:291323:198:182%: 7: Y: 
36: 17:32:38:29:26:215: Bi 2: 
3:18: 25:35: 230:16: 11: Pi: 5: 

dr B:11118: 5: 5; S: Bs 

Zi 81 3: E: 
Fig. 2 


Este programa funciona correctamente en ordenadores que no reservan 
lugar en la pantalla para el signo de los números positivos; pero si tu orde- 
nador deja un espacio libre delante de los números y posiblemente otro detrás, 
has de efectuar las rectificaciones oportunas en las líneas 40 y 50. 


265 


93. DIA DE LA SEMANA 


Realiza un programa que nos dé el día de la semana en que cae una deter- 
minada fecha (día, mes y año). 


Hay que tener en cuenta si el año es juliano o gregoriano, y también 
si los meses son los de enero y febrero o los restantes del año, pará aplicar” 
la fórmula: 


N=D+2+M+1NT(3:(M + 1)/5) + A+ INT(A/4)--G. 


Para las fechas comprendidas desde el inicio de la era cristiana hasta el 
4 de octubre de 1582, que corresponden al calendario juliano, G es cero. Para 
las posteriores al 15 de octubre de 1582 (calendario gregoriano) G es 
INT(A4/100) —INT(A/400)-2. No se admiten fechas intermedias entre el 4 y 
el 15 de octubre de ese año. 


En caso de un día de enero o febrero, M será M+12 y A tiene que ser 
Al. 

La variable N son los días transcurridos desde el principio de la era cristiana 
hasta la fecha considerada, y la fórmula: 


R>=N—FINTIN/M+1 


nos dice que si R=1, el día es sábado; si R =2, domingo, etc. 


Como las fórraulas anteriormente presentadas son complicadas de explicar, 
a continuación se incluye una breve bibliografía, que se puede consultar en 
relación con este tema. 


1. Santiago Thio de Pol.: Primos o algunos dislates sobre números. Edit. 
Alhambra. 

2. Diccionario Enciclopédico Salvat Universal. Tomo Y. 

Enciclopedia Salvat de la Ciencia y de la Tecnología. Tomo U. 

4. B.A. Vorontsov-Veliaminov.: Problemas y ejercicios prácticos de astro- 
nomía. Edit. Mir. 


pa 
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10 REM DIA DE LA SEMANA 

20 PRINT “DIA,MES (EN NUMERO)AÑO (LAS 4 CIFRAS)" 
30 INPUT DMA 

40 REM AÑO JULIANO (HASTA 410-1582) O GREGORIANO (DESDE 15-10-1582) 
50 IF A=1582 AND M=10 AND D<5 THEN 80 

$0 1F A=1582 AND(M> 10 OK(M=10 AND D>14) THEN 100 
70 IF A>1582 THEN 100 

$0 G=0 

90 GOTO 110 

100 G=ENT[A/100)—INT(A/400) --2 

110 REM SI SON LOS MESES DE ENERO O FEBRERO 
120 IF M>2 THEN 150 

130 M=M+12 

140 A=A-1 

150 REM LOS RESTANTES MESES 

160 N=D+2+M + INT(xXM +1)/5) + 4 +1INT(4/4)-G 

170 R=N-PINTN/D+1 

180 ON R GOTO 280,250,300,350,400.450.509 

200 PRINT “SABADO” : GOTO 510 

250 PRINT “DOMINGO” : GOTO 510 

300 PRINT “LUNES” : GOTO 510 

350 PRINT “MARTES” : GOTO 510 

400 PRINT “MIERCOLES” : GOTO SiO 

450 PRENT “JUEVES” : GOTO 510 

500 PRINT “VIERNES” 

510 END 
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99. VIAJE RELATIVISTA 


Nos preparamos para realizar un viaje a velocidades cercanas a la de la luz 
(300.000 km/s). Según la teoria de la relatividad, el tiempo que para un obser- 
vador inmóvil dura t para otro que se desplaza a velocidad v, respecto del anterior, 
se contrae de acuerdo con la expresión Y =t./T=(o/cJ?, siendo e la velocidad 
de la luz. 


Indicamos al ordenador la distancia que vemos a viajar y deseamos ver en 
pantalla una tabla en que figuren los días (en tiempo local de la nave) en que se 
transformará un año terrestre y el tiempo que tardaremos en realizar el viaje 
(en años de la nave). Y esto para dos velocidades dadas y otras nueve Intermedios: 
todas equidistantes entre sí. 


El problema se puede resolver de la siguiente forma: 


Introducir distancia y velocidades, D, V1, V2 

Calcular el incremento de la velocidad, 1V 

Para velocidades de Vl a V2, con incremento 1V 
Calcular días de la nave equivalentes a un año terrestre 
Calcular tiempo de viaje, TY 
Exhibir V, T, TV 

Siguiente velocidad 


a 
FIN 


10 REM VIAJE RELATIVISTA 
20 C=300000 

30 INPUT “DISTANCIA A QUE HEMOS DE VIAJAR (EN AÑOS LUZ)'¡D 
40 PRINT “VALORES EXTREMOS DE LA VELOCIDAD" : INPUT V1,V2 
50 IV =(V2- VIYIO 

100 (BORRAR LA PANTALLA) 

110 PRINT “DISTANCIA ”"¡DÁÑOS LUZ” : PRINT 

120 PRINT "VELOCIDAD" TAB(12)DIAS/AÑO”¡TAB(23)"T.VIAJE" 

130 FOR N=0 TO 31 : PRINT “%; : NEXT ON 

140 PRINT 

200 FOR V=V1 TO V2 STEP 1V 

210 T=365SQR(1 —(V/0)/12) 

220 R$=MIDÍSTRÍT—INT(T)2,4) 

230 T=INTT)+ VALL 

—(V/0112) 


260 TV =INT(IV)+VAL(R$) 

270 PRINT V;TAR(S)T;TABO2D;TV 
280 NEXT Y 

290 END 
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100, REFRACCION 


Representar gráficamente la trayectoria de un rayo luminoso refractado, si 
conocemos el ángulo de incidencia y los índices de refracción. 


NR 


La figura ilustra el camino seguido por el rayo incidente y el refractado 
para ángulos 1 y R, respectivamente. Para representar este camino utilizando 
la función TAB hemos de considerar, 'en cada momento, a qué altura (H) 
sobre la superficie nos encontramos y situarnos a la distancia conveniente de 
la vertical de O. Conocido el ángulo I, resulta: 


E= TAN(D, Juego C=H*TAN(D 


Como NI*SIN() = NR*SIN(R), para el segundo medio resulta: 


NI*SIN(D 


SIN(R)= e 
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y, por tanto, 
R=ARC SIN(NISIN(D/NR) 


Para obtener la separación horizontal de la vertical trazada por O, hemos 
de considerar: 


TAN(R)=ip 


luego 
C =H'*TAN(R)=H'+TAN(ARC SIN(NI*SIN(D/NR) 


Si tu ordenador no dispone de la función ARC SIN, puedes introducirla tú, 
ya que: 


arc sen x=arc tg 


Así pues, siendo, las variables: 


1 = ángulo de incidencia. 
R = ángulo de refracción. 
NI = índice de refracción en el primer medio. 
NR = indice de refracción en el segundo medio. 
= distancia a O en vertical. 
C = distancia a O en horizontal. 


el programa puede adoptar la forma, 


10 REM REFRACCIÓN 

20 INPUT “INTRODUZCA LOS INDICES DE REFRACCION”¿NENR 

30 INPUT “ANGULO FORMADO POR EL RAYO INCIDENTE Y LA VERTICAL" 
1=1+3.1416/180 

40 (BORRAR LA PANTALLA) 

50 FOR H=10 TO 1 STEP —1 : PRINT TAB(0-HsTANO): 
60 FOR C= NEXT € : PRINT 
70 FOR C= : NEXT € : PRINT 

80 A=NI*SIN(G)/NR 

90 FOR H=1 TO 10 : R=ARCISIN(A) : PRINT TAB(04+Hs+TAN(R);*" : NEXT H 
100 END 


EXT H 


Para una representación correcta a cargo de las líneas 50 y 90, se requiere 
que tanto el ángulo de incidencia como el de refracción no excedan los-45?. 


270 


101. TABLA Y SU TRASPUESTA (7.8) 


Dada una tabla de cinco filas y tres columnas, escribir dicha tabla y su 
traspuesta, 


Inicialmente los datos están depositados en líneas DATA de donde los lee 
el programa utilizando la instrucción READ y la variable A(L)). 


La Jectura se hace por filas y posteriormente se escribe la tabla inicial 
Para trasponer, lo que se hace es cambiar filas por columnas y éstas por 
aquéllas, de modo que se fija cada columna y se imprime como fila. 


Presentación en pantalla: 


1.2 


do 
o. 
=D 


TABLA TRASPUESTA? 


1.4 7 1 
ETB E 
A O 


10 REM TABLA Y SU TRASPUESTA 
20 DIM A(3,3) 

20 REM LECTURA DE LA TABLA 
40 FOR I=1 TO 5 

30 FOR Jwri TO 3 

60 READ A(L3) 

70 NEXT J 

80 NEXT 1 

90 REM IMPRESION DE LA TABLA 
100 PRINT “TABLA INICIAL:” 

MO PRINT "e dl 
120 FOR I=i TO 5 

130 FOR J=1 TO 3 

140 PRINT A(L); 

150 NEXT J 
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160 PRINT 
170 NEXT 1 

180 PRINT 

190 REM IMPRESION DE LA TRASPUESTA 
200 PRINT “TABLA TRASPUESTA? 

210 PRINT “===> - 
220 FOR J=1 TO 3 

230 FOR I=1 TO 5 

240 PRINT A(LJ); 

250 NEXT 1 

260 PRINT 

270 NEXT J 

280 REM ELEMENTOS DE LA TABLA 

290 DATA 1,2,3,4,5,6,7,8,9 

300 DATA 0,1,0,1,2,1 

310 END 
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102, MULTIPLICACIÓN DE DOS TABLAS 


Prepara un programa que nos permita multiplicar dos tablas, una de 3 filas 
y 4 columnas, y la otra de 4 filas y 2 columnas. 


En la variable con dos indices A(1,J) introducimos los elementos de la pri- 
mera tabla, en B(1,J) los de la segunda y en C(LJ) los de la tercera. 


Para multiplicarlas, hay que tener en cuenta que el número de columnas 
de la primera tabla debe ser igual al número de filas de la segunda, lo que 
se cumple en este ejercicio. 


Para entender cómo se realiza esta multiplicación ponemos un ejemplo: 
fijamos la segunda fila de la primera tabla y la primera columna de la se- 
gunda, con lo que resulta: 

C(2,1) =A(2,1)- B(1,1) + A(2,2) BQ,1)+ A(2,3)- B(3,1) +A(2,4)- B(4,1) 


Presentación en Pantalla 


LA PRIMERA TABLA 


EMENTTE DE LA SEGUNDA TABLA 


A 
DU 


LA TABLA PRODUCTO ES 


109 REM MULTIPLICACION DE DOS TABLAS 

20 DIM Á(3,4)B(4,2,08,2) 

30 PRINT “ELEMENTOS DE LA PRIMERA TABLA” 
40 FOR 1=1 TO 3 

$0 FOR J=1 TO 4 
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$0 READ A) 
70 PRINT A(L.D; 

80 NEXT J 

90 PRINT 

100 NEXT 1 

110 PRINT ; PRINT “ELEMENTOS DE LA SEGUNDA TABLA” 
120 FOR I=1 TO 4 

130 FOR J=1 TO 2 

140 READ B(LD 

150 PRINT B(LJ); 

169 NEXT J 

179 PRINT 

180 NEXT 1 

190 FOR I=1 TO 3 

200 FOR J=1 TO 2 

210 CL) -=0 

220 FOR L=1 TO 4 

230 C1,=C(,)+A(LI3(L,) 

240 NEXT L 

250 NEXT J 

260 NEXT 1 

270 PRINT : PRINT “LA TABLA PRODUCTO ES" 
280 FOR I=1 TO 3 

290 FOR Ju=i TO 2 

300 PRINT CJ) 

310 NEXT J 

320 PRINT 

330 NEXT 1 

340 REM DATOS PRIMERA TABLA 
350 DATA —1,3,5,26,5, -2,3,0,1,2,3 

360 REM DATOS SEGUNDA TABLA 
370 DATA 0,33,14,—5,2,L6 

380 END 


274 


103. TRIANGULO DE TARTAGLIA 


Prepara un programa para obtener el triángulo de Tartaglia. 


Si observamos el triángulo de Tartaglia, también conocido con el nombre 
de triángulo de Pascal: 


vemos que un elemento central de la línea 4, por ejemplo el 3, se obtiene 
sumando los dos elementos de la línea que está por encima, que en este caso es 
la línea 3 (3=1+2). 

Nuestro triángulo de Pascal tendrá como máximo 20 líneas, pues así se ha 
dimensionado la variable con dos índices C(LP). 


El primer uno se asigna desde el principio, pues se toma C(0,0)=1; y los 
de los lados se obtienen en las sucesivas ejecuciones de la linea 90. Los res- 
tantes elementos se construyen mediante otro bucle, de variable N, anidado 
con el anterior, con la expresión C(M,N)=C(M —1,N— 1) + C(M— LN). Por 
ejemplo, sería: 


C(4,2)=C(3,1) +C(3,2) 
Presentación en pantalla: 


TÁ QUE LINEA? Y 


DU 


Az 
1 
1 
1 
1 
1 
1 
1 
1 
i 


DINA 
[5] 
5] 
o 
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10 REM TRIANGULO DE TARTAGLIA 
20 DIM C(20,20) 

30 PRINT “HASTA LA LINEA”; 

49 INPUT L 

50 REM CALCULO DE LOS ELEMENTOS 
60 C00)=1 

70 FOR Mei TO L-1 

30 REM LOS ELEMENTOS DE 1OS EXTREMOS 
90 CMO)=1 : C(MM)=1 

100 REM LOS RESTANTES ELEMENTOS 
110 FOR N=l TO M-1 

120 CIM.N)=C(M—1,N— 1 +C(M-—1N) 

130 NEXT N 

140 NEXT_M 

150 REM ESCRITURA DE LAS LINEAS ELEGIDAS 
160 FOR M=0 TO L-1 

170 FOR N==0 TO M 

180 PRINT C(M,N); 

190 NEXT _N 

200 PRINT 

210 NEXT M 

220 END 
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104. VALORES APROXIMADOS DEL SENO (5,11) 


El valor de sen(x) puede aproximarse mediante la siguiente función: 


a ae xo y 
sex) +37 


(x en radianes) 

Haz el programa que presente una tabla de la función seno, de 0% a 45% con 
valores de grado en grado. Compara estos resultados con los que se obtienen utili 
zando la función SIN(X) del ordenador. 


La variable 1 va a recorrer los grados de uno en uno, desde 0 2 457. Como 
X tiene que ir en radianes, lo primero que hay que hacer es convertir 1 grados 
en X radianes. Esto lo puedes conseguir mediante la instrucción: 


X =1+3.14159265/180 


Siobservas atentamente la fórmula del enunciado, verás que se puede pasar 
de un sumando a otro multiplicando el precedente por X? y dividiéndolo por 
el producto de dos números naturales consecutivos, haciendo abstracción de 
los signos, evidentemente. Esto es: 


XX xXx OXó xXx? Xx 


23330 ATT. SETA 


Más tarde habrá que sumar estos términos cambiándolos alternativamente 
de signo. 


Sí al primer término lo llamamos A=X, los tres siguientes los podemos 
calcular con la fórmula: 


A=—AxX«X/Q+J:(2+34 1) — para J=1,2,3 


A medida que vayamos obteniendo estos valores de A, los iremos acumu- 
lando en la variable S, con el signo que les corresponda: 


S=S+A 
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Si previamente hernos inicializado la variable S, con S =X, al final tendremos 
en S un valor aproximado de sen(X). 


10 REM VALOR APROXIMADO DEL SENO 
20 PRINT “ANGULO".TAB(D;"V. APROXIMADO”:TAB(S)FUNCION SIN” 
30 FOR. I=0 TO 45 

e AS 3.14159265/180 

¡AX 

% FOR Jl TO 3 

70 Amo —ArXeX[(2xTr(2+J+1)) 

30 S=S+A 

90 NEXT J 

100 PRINT TAB(2)1:TAB(6):S;TAB(24):SINO9 

110 NEXT 1 

120 END 
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105, VARIABLES ALEATORIAS BIDIMENSIONALES 


Pretendemos obtener un programa que nos facilite los parámetros que carac- 
terizan las distribuciones marginales de una distribución bidimensional (media, 
varianza y desviación típica) y los específicos de la bidimensional (covarianza y 
coeficiente de correlación) además de las ecuaciones de ambas rectas de regresión, 


Si la distribución bidimensioñal responde a los datos: 


X1, X2, 9) Xp (primera distribución marginal) 
Yo Ya > Ya (segunda distribución marginal) 


las fórmulas asociadas a los parámetros mencionados son: 


Xy Xan too Xp 
E n 


Mx 


+ m4 + 6 ma)? 
1 


y =1LBETA 


my) o my) + Ga my 
n 


si = 


.=/3 


para las distribuciones marginales; para la conjunta, tenemos la covarianza 
y el coeficiente de correlación: 


(1 — me) (Ya — My) + (2 — Mi) (Yo — my) ++ + (Xp — mx) (Yo — my) 


CO = Sy = 
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y las rectas de regresión son; 


si 
y -m, =—7 (x — ma) ym =-2(x—m) 


A la vista de estas fórmulas, resulta evidente que la primera parte del pro- 
grama ha de repetir cálculos idénticos con datos diferentes. Podemos ahorrar- 
nos trabajo almacenando los datos en una tabla, de la siguiente manera, 


Dz le 23eo ) 
Y1Y2 7 Ya 


y la media y la varianza de las distribuciones marginales en otra: 
2 
po[m e 
my Sy 


10 REM DISTRIBUCION BIDIMENSIONAL 
20 INPUT “NUMERO DE PARES DE VALORES”N 

30 DIM D(2,N),P(2,2) 

40 FOR F=1 TO 2 

S0 FOR C=1 TO N : READ D(F,C) : NEXT C 

60 NEXT F 

100 FOR F=1 TO 2 :M=0 :V=0 

110 FOR C=1 TO N : M=M+D(F.C) : NEXT € 

120 P(F,l)=M/N 

130 FOR C=1 TO N : V=V-+HABS(D(F,C)—P(F,1))12 : NEXT C 
140 P(F,2)=V/N 

150 NEXT F 

200 (BORRAR LA PANTALLA) 

219 FOR F=i TO 2 

220 ON F GOTO 230,240 

230 PRINT “PRIMERA VARIABLE” : GOTO 250 

240 PRINT “SEGUNDA VARIABLE” 


250 PRINT 'RINT “MEDIA ="¡P(F,D) VARIANZA =”P(5,2) 
260 PRINT “DESV. TIPICA=”:SQR(P(F,2) : PRINT 

270 NEXT F 

300 CO=0 


319 FOR C=1 TO N : CO=CO+(D(1,C)—Pll, DDR) PQ) : NEXT € 
320 CO=CON : PRINT : PRINT “COVARIANZA=":CO 
330 PRINT “COEF. DE CORRELACION=”.CO/SQRPLD:PO2) 

340 PRINT : PRINT “RECTAS DE REGRESION” : PRINT 

350 PRINT “Y-(5PQ1))=":CO/PLD A ¡P(LDSY" 

360. PRINT “Y—(5P2,1):9=":PQ2/CO(X ("P(LIDSY 

400 DATA 6,5,6,4,5,2,5,3,1,34,2,362,6,34,4,5,22,1,4,3,1,6,2.4:4 

410 DATA 4,3,2,2,3,1,2,3.2,24,3,4,2,1,4,3,3,2,3,1,2,3,2,2,1,4,3,3,2 

420 END 
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106. SISTEMAS DE ECUACIONES 


Resolver un sistema de ecuaciones lineales por el método de diagonalización, 


En el ejercicio 7.24 del libro BASIC BASICO se describe la resolución de 
sistemas de ecuaciones lineales por el método de triangulación o de Gauss. 
El método de diagonalización da un paso más que clarifica y acorta el programa. 


Sea el sistema: 


A(LD)-X14A(1,2)- X24-A(1,3)- X3=A(1,4) 
A(2,1) -X1 4 A(2,2)- X24 A(2,3) X3=A(2,4) 
A(3,1) X1+A(3,2) + X2+A(3,3) - X3 =A(3,4) 


donde A(LJ) son números. 


Si A(1,1) es distinto de cero, se divide la primera ecuación por A(l,B. 
Después se resta a las demás la primera multiplicada por A(,1). Queda un 
sistema equivalente pero de la forma: 


X1+B(1,2) -X2+ B(1,3)- X3=8B(1,4) 
B(2,2)- X2+ B(2,3) - X3=B(2,4) 
B(3,2)- X24 B(3,3): X3=B(3,4) 


Si A(1,1) es igual a cero, al no poder dividir por cero tomamos en vez 
de la primera ecuación la segunda: intercambiamos las dos ecuaciones. Pero 
si A(2,D también resulta nulo habrá que tomar A(3,1) y el intercambio sería 
con la tercera. Eso sí, uno de los tres ha de ser distinto de cero, pues de lo 
contrario la X] queda indeterminada y se trataría en realidaú de un sistema de 
tres ecuaciones con dos incógnitas. 


El paso siguiente consiste en dividir la segunda ecuación por B(2,2), si es 
distinto de cero. Después se resta a las demás la segunda multiplicada por B(L,2). 
El sistema resultante es: 


xl +C((1,3)-X3=C(1,4) 
X2+C(2,3): X3 =C(2,4) 
(03,3) X3=C,4) 
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Si B(2,2) es igual a cero, intercambiamos la segunda ecuación con la tercera, 
Si ahora B(3,2) es también nulo, el sistema no tiene ninguna solución c tiene 
más de una, Sin distinguir ambos casos nuestro programa imprime: “ESTE 
SISTEMA NO TIENE SOLUCION UNICA” y se finaliza la ejecución. 


Ahora se divide la tercera ecuación por C(3,3), que si fuera nulo, revelaría 
un sistema con más de una solución. Después se resta a cada ecuación la 
tercera multiplicada por C(1,3). El nuevo sistema es: 


X1 =D(1,4) 
Xx =D(2,4) 
X3 -D(3,4) 


que refleja directamente el valor de las incógnitas. 


El programa emplea las primeras líneas, hasta la 150, en la entrada de 
datos: los coeficientes y términos independientes. 


En las líneas 160 a 270 se buscan los coeficientes de las diagonales no 
nulos. Si es preciso, se intercambian dos ecuaciones, líneas 240 a 270. Si no es 
posible obtener un determinado coeficiente de la diagonal no nulo, se escribe el 
mensaje antes citado y se finaliza la ejecución. 


En las líneas 280 a 410 se realiza la diagonalización en dos pasos: primero 
se divide la ecuación 1 por AfI,I) y después se les resta a todas las demás 
multiplicando por A(J,B. 


La diferencia esencial con el método de Gauss es que éste en vez de utilizar 


las líneas: 


340 FOR J=1 TO E 
350 IF 1=3 THEN 400 


utilizaría para la triangulación las siguientes: 


340 1F 1=E THEN 410 
350 FOR J=1+1 TO E 


Pero el método de diagomalización, al llegar a este punto ya está en con- 
diciones de presentar los resultados, mientras que el Gauss requiere continuar 
el trabajo. 
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¡0 REM SISTEMA DE ECUACIONES 
20 (BORRAR LA PANTALLA) 

30 INPUT “NUMERO DE ECUACIONES”:E 
46 DIM A(E,.E+1) 

50 REM ENTRADA DE DATOS 

60 PRINT : PRINT “COEFICIENTES” 

70 FOR I=I TO E 

30 PRINT : PRINT “ECUACION*¿ 

$0 FOR J=1 TO E+! 

100 1F J=E-+1 THEN 120 

110 PRINT *__ COEFICIENTE]; : GOTO 130 
120 PRINT “CONSTANTE”; 

130 ENPUT AG) 

140 NEXT J 

150 NEXT 1 

160 REM BUSQUEDA DE UNA ECUACION DE CO- 
170 REM EFICIENTE LI NO NULO 

180 FOR l==1 TO E 

190 FOR J=1 TO E 

200 1F AQ,)<>0 THEN 230 

210 NEXT J 

220 PRINT “ESTE SISTEMA NO TIENE SOLU-" 
230 PRINT "CION UNICA" : GOTO 470 

240 REM INTERCAMBIO DE ECUACIONES 
250 FOR K=1 TO Ev 1 

260 X=A(LE) : A(LE)=A(8X) : ARIO)=X 

270 NEXT K 

280 REM DIAGONALIZACION 

290 Y=1/A(,1) 

309 FOR K=I TO E+1 

310 AL) =A(LK)e Y 

320 NEXT K 

330 REM SUSTRACCION DE 2 ECUACIONES 
349 FOR J=1 TO E 

350 IF [=J THEN 400 

360 Y=- AD 

370 FOR K=1 TO Es 1 

389 AQ,K)=A(,K)+ Ys A(LK) 

390 NEXT K 

400 NEXT J 

410 NEXT 1 

420 REM RESULTADOS 

430 PRINT 

449 FOR I=1 TO E 

450 PRINT “X"¡LS="¡INTÍA(LE +1)41000+.5/ 1000 
460 NEXT 1 

470 END 


107. INTERPOLACION (9.15) 


Con objeto de presentar un texto de más fácil lectura, utilizamos indistinta- 
mente los conceptos de polinomio, función polinómica y curva asociada a la 
anterior. 


Tenemos un conjunto de puntos (x,y,) por los que pasa una función. Haz un 
programa capaz de interpolar, para cualquier valor de x el correspondiente de la 
y, según el método de Lagrange. 


Se define como polinomio de Lagrange el polinomio de grado n: 


Pod = Yo: Polx) + Y) + Po Ya Pabo. 


Donde: 
de Ealci: 


(Ka — Ko) + (Kn — X1) +9 (a — Xp 1) 


Este polinomio que pasa por los puntos [Xo, Yo), (X1, Y1), ...» (Xn. Ya) es el 
que utilizamos para interpolar. 


En el programa admitimos como máximo 20 puntos, siendo la abscisa la 
variable con índice X(I) y la ordenada, la variable con indice Y(D. Después 
de haber introducido los puntos, damos el valor de x, que queremos inter- 
polar y a continuación calculamos todos los productos del numerador, que 
colocamos en la variable U y después, todos los del denominador, que colo- 
camos en la variable Y y a la vez realizamos el producto del cociente U/V por 
las ordenadas correspondientes. Al final calculamos Y y preguntamos si se desea 
interpolar nuevamente 0 no. 
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10 REM INTERPOLACION POR EL METODO DE LAGRANGE 
20 DIM X(20)YQ0) 

30 PRINT “CUANTOS PUNTOS”; 

40 INPUT N 


50 PRINT “INTRODUCE LAS COORDENADAS DE LOS PUNTOS” 


$0 FOR l=0 TO N--1 

70 INPUT X.Y) 

80 NEXT 1 

90 PRINT “INTRODUCE EL VALOR DE X”; 

100 INPUT X 

10 REM CALCULO A PARTIR DE La FORMULA 


TO N-1 

THEN 180 

170 U=(X-X)*U : V=(X(L)-X0)p"V 

130 NEXT 1 

190 P=Y(LPUN+P 

200 NEXT L 

210 PRINT “EL VALOR DE Y ES”;P : PRINT 
120 PRINT “QUIERES INTERPOLAR OTRO VALOR DE X (S/Ny'; 
230 INPUT A$ 

240 IF Aj="S” THEN 90 

250 IF Af="N" THEN END 

260 GOTO 220 
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108. INTEGRACION NUMERICA 


Se desea obtener una buena aproximación de la integral definida de una función 
F(x) en un intervalo [A,B]. 


Para ello vamos a sustituir la función por una poligonal de la siguiente 
manera: se divide el intervalo [A,B] en N partes iguales (en nuestro dibujo en 
4 partes). Asi se obtienen los puntos Xo, X1, ***, X4. Si unimos con líneas rectas 
los puntos (xo, flx0)), (X1,£X4)), ==>, (Xa, (X4)). según muestra la figura, resulta 
una poligonal. 


a) 
a 6%, 1040) 


£xo, Ro) l 
| 
| 
Pot MA HR 


A A+DA+2DA+3D A+4D 
Xo XEM a 


La integral definida es el área limitada por la curva y el eje de las X en el 
intervalo fijado (omitimos la cuestión del signo de la función, que no afecta a 
este procedimiento). Vamos a aproximar este área mediante la suma de las 
áreas de los cuatro trapecios que forman la poligonal y las verticales. 


Siendo D=(B-— A)/4, el área tiene la siguiente expresión: 


D-(A) + NAH+D) , D-(A + D)+%A +2D)) 
= 3 + 2 + 


s 


+ DMA +2D)+ MA +3DD_ D- (KA + 3D) +fÁ + 4D) 
2 2 
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Es decir: 


somo + m2 + mam) + 00) 


Cuanto mayor sea el número de partes en que dividimos el intervalo, más 
se aproximará la poligonal a la curva, y la suma calculada a la integral de- 
finida. No hay que olvidar sin embargo, que si el número de divisiones es 
grande, los errores de cálculo por redondeo o truncamiento de decimales pueden 
ser apreciables, 


En el programa las primeras líneas se destinan a definir la función. El 
cálculo de la integral comprende las líneas 170 a 200. Primero se efectúa la 
suma de f(xi) en el bucle y después la semisuma de la función en los extremos 
y el producto por la amplitud del intervalo. 


10 REM INTEGRACION NUMERICA 

206 REM METODO DE LOS TRAPECIOS 

30 (BORRAR LA PANTALLA) 

20 PRENT : PRINT “TECLEA LA FUNCION PRECEDIDA DE” 
50 PRINT : PRINT “ 100 DEF FNYA) 
$0 PRINT : PRINT “DESPUES ESCRIBE RUN 
70 STOP 

110 (BORRAR LA PANTALLA) 

120 PRINT “EXTREMOS DE INTEGRACION" : PRINT 
130 INPUT “(A<B)”;A,B 

140 PRINT 

150 INPUT “NUMERO DE DIVISIONES”,N 

160 S=0 : D=(B-AJ/N 

170 FOR 1==1 TO N—1 

180 S=S+FNY(A+1+D) 

190 NEXT 1 

200 S=DxS-(FNY(A)+FNYBI/D 

210 PRINT : PRINT “LA INTEGRAL VALE “S 

220 END 
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| eN- 
FOR- DATA SOSUB Gora 
BB. ore de E, READ > DY. 
di E el o | PES: | ru [00508 
TURN 
1 Adivina un número 29 e . 
2 Carretera... 31 . a $ 
3 Carreras de caballos . 331712 . Jo 
4 Ruleta rusa... 36 . . . 
5 Tiro al plato 38 . . . . 
6 Submarino inmóvil 401722. | e 
7 Submarino 42 . el. . 
8 Juego del submarino móvil .. 4517.231 e . . 
9 Ruleta .. 4Ti625| e . 
10 Ogros ... so . . . . 
11 Master mind..-- 35 . . . 
12 Las siete y media . 591716] e . . . . 
13 Loteria ....ooo.ooo 6516.24 . 
14 Lanzamiento de una moneda .. 66 [6.16] e eje 
15 ¡Qué quiniela! .... 67 » . 
16 Quiniela millonaria 68 . . . 
17 La bañera 000. elas |. |. 
18 CAmMpanadas ..oonomncicnoco nos Nléli . . 
19 Suma de los puntos de un dado . 15 . 
20 Frecuencias relativas de un dado . 76 17.2 . . 
21 Estabilización de las frecuencias TI1619)] e . . 
22 La colección de cromos .. 7917.20 . . 
23 El destino de una urna . 811721 . . 
24 Elecciones 8317.19 . . 
25 Baraja... oouocoo-- da 85 17.15 . . . 
26 Ruido de una información 88 . . 
27 Deformación de un mensaje . 90 sio io je 
28 Rumores... 93 . 
29 Cálculo de x 96 6.29 . . 
30 La aguja de Buffon. . . 
31” Caza de barcos -... . E 
32 Trenes... 0.o.omo . . 
33 Generador de frases . eq. j¡. . 
34 Supresión de espacios .... 113 |6.51 . . 
35 Vocales que hay en una frase .. 114 ». . 
36 Frecuencia de un carácter . 116 | 649 . . 
37 Flechazo al ordenador .. M8J62T| e. ¡e j. 
38 Frecuencia de una palabra . 1201650] e | » . 
39 Conjugación ...- 122 16,54 . . 
40 Mensaje secreto 124 . . 
ETT VETE CN E E E E 
42 Poesia aleatoria ...oooooooooooo. 129 . . . . 


_ —Q——————, 
FUN- 
e COMES eras ramas! Er | ner | 07 suairel sms | asc COLOR | PLOT 
Po ne] LO | 70,99 Jmaueos | rm AO Ets | va eo PE oa OO 
CAS qe ee 
- AE 
. . . . 
lolo . elo 
. . . . . o 
. . . 
ejo le. . e 
. . . 
eloloale . . 
. . . . a 
. » 
A . 
TT DO 
. . . . . > e 
. . . 
. . 
. . . 
. . 
a . 
. 
a lol. . . . 
. Spear . 
. . . 
. . 
O . 
e lolo |. 
. . . 
. . elo 
ele 
. 
. . . . 
TT o 
. |. . . 
. . . 
. 
. 
elo. . 
a . 
. . 
pe . 
Lt A a del 
» . . . . 
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Giro de letras 
Bandera U.S.A. 
Evolución de la población ... 

Diagrama de barras horizontales . 
Diagrama de barras verticales ... 
Ascensor .. 
Representación gráfica de funciones 
Recta entre 2 puntos ...cooomommmmooo 


6.42 


Bandera de-franjas horizontales 
Bandera de franjas verticales . 
Mondrian .- 
Espiguilla . 
La hormiga mareada 
ESCUÑO roccoococoo. 
Flor de circunferencias 
Haz de rectas 
Polígono regular 
Estrella 


Clavos y cuerdas .. 
Espiral . a 

Trébol .. 
Factura ... 
Cambio de divisas . 
El recibo de la luz. 
Anvalidad constante . 
Venta de billetes .. 
Taquilla automática . 
Hiper 


Ordenación alfabética . 
Ordenación por inserción 
Ordenación por edades 
Geografía económica 
Creación de un fichero 
Sectores industriales . 
Tablas de sumar .. 
Multiplicar sumando 
Dividir restando .. 
Suma de polinomios . 


coo. ..o 


ee. non.o.eno. neo 


Suma de filas y columnas en una tabla... 
Conversión de ángulos ... 
Conversión de longitudes . 
Sumas para Pepito... 


año | 10 Come stas lraotas| cer | oc | 2% elas eros | ase Conor | por 
17) INF Ltd ED | TOS) fixeYs| FM par vero | var | emp | PUE |x| oa] AOL 
CAS 1eN 
A O A A O O O 
. . 
. . 
. .* . 
. el. . 
. 
e |. . eje 
e jojo * 
$ y 
. » 
. . 
. . 
. . . . 
e el. 
. . 
a . 
E . 
. . 
>? * 
e . 
4 . 
. . jo 
. 
el» eje 
e. |. 
. . . . 
. 
. . e so. jo 
. 
. 
. 
. os . 
. 
. 
Te 
. 
. 
| eje . elo. 


291 


“pj be jor | 1% 
E THEN 


85 Puntos en un círculo .. 
86 Números primos 
87 Descomposición en factores primos Ea 
88 Máximo común divisOT --.o0.o.oo.o.o-.o 245 165 | e 


89 Tabla de valores de una función . 247 16.43 

90 Cuadrado perfecto . 248 16.9 . 
91 Capicúa 50 [6-11 . 
92 La vaca y el prado 252 | 6.31 . 
93 Area de un polígono 254 

94 Método de bipartición . 256 1645] e . 
95 Método de la secante , 259 . le 
96 Pantano .. 261 . 
97 Lago ....- : 264 .. 
98 Día de la semana ... --.1 266 . . 
99 Viaje relativista .. >= .] 268 

100 Refracción....... 1269 

101 “Tabla y su traspuesta .. 1271178 

102 Multiplicación de dos tablas 273 

103 Triángulo de Tartaglia ..... 1275 

104 Valores aproximados del seno 1277 (5.11 


105 Variables aleatorias bidimensionales ...| 279 . 


106 Sistemas de ecuaciones 231 . . 
107 Interpolación 284 . . 
108 Integración numérica . 286 
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Flo 


108 com oras Iragtas| cer | nes | 0? Islonts! sras ase COLOR | PLos 
a E a RS AO Perro | var | ego PE pa CPOLE 
sl LN 
Y —Á ll 
. 
. 
. 
. . . 
. . O 
TT O 
. . 
. 
. . . 
. . » 
pe » 
7 . 
e. eje ei. 
. 
. 
. 
. 
. . 
. . 
. 
. 
. 
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BASIC BASILD. curso De PROGRAMACION 
procramas comentaDos De BASILE BASICO. 


BASIC JUNIOR. iniciacion A La PROGRAMACION j 


